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