pharen php evalutation

gistfile1.php

class PhpNode extends SpecialForm{
    public $body_index = 2;

    public function compile_statement(){
        $body = $this->compile_body();
        
        eval("\$body=$body");
        echo $body;
        
        return $this->format_line($body);
    }
}

......

"php" => array("PhpNode", "LeafNode", "LeafNode", self::$values),
       

gistfile3.sls

(write-variable-macro)

macro.phn

(defmacro write-variable-macro ()
  (def var1 "value var 1")
  '(php  (. "" ~var1 "" ~var1 " " ~var1))
)