anchor.diff: -;;;;; TRE tree processor transpiler
  -;;;;; Copyright (c) 2008 Sven Klose <pixel@copei.de>
  +;;;;; TRE transpiler
  +;;;;; Copyright (c) 2008-2009 Sven Klose <pixel@copei.de>
   
   ;;;; OPERATOR EXPANSION
   
  
positive.code: 		       e))
  		x)))
  
  (defmacro define-transpiler-macro (tr name args body)
    `(define-expander-macro ,(transpiler-macro-expander (eval tr)) ,name ,args
  	 ,body))
  
  ;;;; TOPLEVEL
  
  (defun transpiler-generate-code-compose (tr)
    (compose #'transpiler-concat-string-tree
  
  		   (fn transpiler-to-string tr _)
  
  
negative.code:   (when x
  	(with (a          x.
  		   separator  (transpiler-separator tr)
  		   ret		  (transpiler-obfuscate tr '~%ret))
  	  (if
  		(not a)
  		  ; Ignore top-level NIL.
  