anchor.diff:  	  (rename-arg replacements x)
   	(%quote? x)
   	  x
  -	(lambda? x) ; XXX Add variables to ignore in subfunctions.
  +	(lambda? x)
   	  (with (args (lambda-args x)
  -			 new-replacements (find-and-add-renamed-doubles args
  +			 new-replacements (find-and-add-renamed-doubles (get-lambda-funinfo x)
  +															args
   														    replacements
   														    env)
           	 renamed-args (rename-double-function-args args new-replacements env))
  
positive.code:     (cons (cons x. (gensym))
            (list-aliases .x))))
  
  (defun find-and-add-renamed-doubles (vars old-replacements args)
    (append (list-aliases (doubles args vars))
  		  old-replacements))
  
  (defun rename-double-function-args (x &optional (replacements nil) (env nil))
    (if
  
negative.code: ;;;;; TRE compiler
  ;;;;; Copyright (c) 2005-2009 Sven Klose <pixel@copei.de>
  
  (defun doubles (a b)
    (when b
  