anchor.diff:  	              (if (and (identity? e) (eq '~%ret (second e))) ; Remove (IDENTITY ~%RET).
   		              (transpiler-finalize-sexprs tr (cdr x))
   				      ; Just copy with seperator. Make return-value assignment if missing.
  -		              (cons (if (and (consp e) (not (or (vm-jump? e) (%setq? e))))
  +		              (cons (if (and (consp e)
  +									 (not (or (vm-jump? e)
  +											  (%setq? e)
  +											  (in? (car e) '%var '%transpiler-native))))
   							    `(%setq ~%ret ,e)
   							    e)
   						    (cons separator
  
positive.code: 	  (setf w n
  			n (transpiler-wanted-functions tr))))
  
    (format t "### Pass 2...~%")
    (with (src (transpiler-concat-strings
  			   (list (transpiler-wanted tr #'transpiler-pass2 (transpiler-wanted-functions tr))
  					 (transpiler-pass2 tr forms))))
    (format t "### Emitting code...~%")
  	(with-open-file f (open name :direction 'output)
  	  (format f "// TRE transpiler output~%")
  	  (format f "// http://www.copei.de~%")
  	  (format f "~A" src))))
  
negative.code: 	 `(%transpiler-native ,,x ,(string-downcase (string name)) " " ,,y)))
  
  (defun transpiler-binary-expand (op args)
    (nconc (mapcan #'(lambda (x)
  					 `(,x ,op))
  				 (butlast args))
  		 (last args)))
  
  (defmacro define-transpiler-binary (tr op repl-op)
    `(define-expander-macro ,(transpiler-macro-expander (eval tr)) ,op (&rest args)
       `("(" ,,@(transpiler-binary-expand ,repl-op args) ")")))
  
  ;;;; STANDARD MACRO EXPANSION
  
  