anchor.diff:  ;;;;; Transpiler: TRE to PHP
   ;;;;; Copyright (c) 2008-2010 Sven Klose <pixel@copei.de>
  -;;;;;
  -;;;;; Code generation
   
   ;;;; GENERAL
   
  
positive.code: 
  (define-php-macro vm-go-nil (val tag)
    (if (< 503 *php-version*)
        (php-line "if (!$" val "&&$" val "!==0) { $_I_=" tag "; continue; }")
        (php-line "if (!$" val "&&$" val "!==0) goto _I_" tag)))
  
  ;;;; FUNCTIONS
  
  
negative.code: (define-php-macro %%funref (name fi-sym)
    (let fi (get-lambda-funinfo-by-sym fi-sym)
      (if (funinfo-ghost fi)
    	  	`(%funref (%transpiler-string ,(symbol-name name)) ,(funinfo-lexical (funinfo-parent fi)))
  	    name)))
  
  ;;;; ASSIGNMENT
  