anchor.diff:  						  (transpiler-finalize-sexprs tr (cdr x))))
   	          (if (and (identity? e) (eq '~%ret (second e))) ; Remove (IDENTITY ~%RET).
   		          (transpiler-finalize-sexprs tr (cdr x))
  -	              (if (and (%setq? e) (consp (third e)) (atom (first (third e)))) ; Expand arguments to function.
  -					  (cons `(%setq ,(second e) (,(first (third e)) ,@(transpiler-expand-args tr e)))
  -							(cons separator
  -								  (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))))
  -								`(%setq ~%ret ,e)
  -								e)
  -							(cons separator
  -								  (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))))
  +							`(%setq ~%ret ,e)
  +							e)
  +						(cons separator
  +							  (transpiler-finalize-sexprs tr (cdr x))))))))))
   
   ;;;; TRANSPILER-MACRO EXPANDER
   
  
positive.code: 
  ;;;; STANDARD MACRO EXPANSION
  
  (defun transpiler-std-macroexpand (x)
    (repeat-while-changes #'((x) (*macroexpand-hook* x)) x))
  
  ;;;; EXPANSION OF RENAMED STANDARD MACROS
  
negative.code: 							 (transpiler-macrocall tr fun x)))
  	tr))
  
  ;;; OPERATOR EXPANSION
  
  (defmacro define-transpiler-infix (tr name)
  