anchor.diff:  
   (defun expex-move-%%block (x)
     (!? (%%block-body x)
  -      (let s (expex-funinfo-var-add)
  +      (let s (expex-add-var)
           (. (expex-body ! s) s))
   	  (. nil nil)))
   
   (defun expex-move-std (x)
  -  (with (s                (expex-funinfo-var-add)
  +  (with (s                (expex-add-var)
            (moved new-expr) (expex-expr x))
       (. (append moved
                  (? (has-return-value? new-expr.)
  
positive.code: ;;;;; MOVING SINGLE ARGUMENTS
  
  (defun expex-move-atom (x)
    (let s (expex-funinfo-var-add)
      (. (expex-make-%= s x) s)))
  
  (defun expex-move-inline (x)
  
negative.code:                                                    (%=-place val)
                                                     val)))))
  
  (defun expex-add-var ()
    (aprog1 (expex-sym)
      (funinfo-var-add *funinfo* !)))
  
  