anchor.diff:    std-macro-renamer
     std-macro-expander
     macro-expander
  -  function-args
  -  separator)
  +  separator
  +  (function-args nil)
  +  (wanted-functions nil))
   
   (defun create-transpiler (&rest args)
     (with (tr (apply #'make-transpiler args))
  -    (define-expander (transpiler-preprocessor tr))
  +    (define-expander (transpiler-preprocessor tr)
  +					 nil nil
  +					 nil #'(lambda (fun x)
  +							 (transpiler-preprocessor-call tr fun x)))
       (define-expander (transpiler-std-macro-renamer tr))
       (define-expander (transpiler-std-macro-expander tr))
   	(define-expander (transpiler-macro-expander tr)
  
positive.code: 
  ;;;; TOPLEVEL
  
  (defun transpiler-transpile (tr forms)
    (transpiler-concat-strings
      (transpiler-to-string tr
        (mapcar #'(lambda (x)
                    (funcall
  				    (compose #'(lambda (x)
  								 (expander-expand (transpiler-macro-expander tr) x))
  						     #'(lambda (x)
  								 (transpiler-finalize-sexprs tr x))
  						     #'list
  						     #'(lambda (x)
  								 (expander-expand (transpiler-std-macro-expander tr) x))
  						     #'transpiler-encapsulate-strings
  						     #'expression-expand
  						     #'transpiler-lambda-expand
  						     #'compiler-macroexpand
  						     #'transpiler-std-macroexpand
  						     #'(lambda (x)
  								 (expander-expand (transpiler-std-macro-renamer tr) x)))
  				    x))
  		      forms))))
  
negative.code: 							 (transpiler-macrocall tr fun x)))
  	tr))
  
  ;;; OPERATOR EXPANSION
  
  (defmacro define-transpiler-infix (tr name)
  