anchor.diff:      (labels ((uniform-raw (val)
   	       (slot-value (first (ids (first (listify (flow-ids val)))))
   			   'val)))
  -      (let ((env (%get-base-env env)))
  +      (let ((env (%get-base-env (env post-proc-obj))))
   	(loop :for (name % %1) :in (v-uniforms env) :do
   	   (let ((key (uniform-raw (get-var name env)))
   		 (val (vector :uniform name)))
  
positive.code: 		  (funcall walk (first (ast-args node)) :parent parent))
  
  		 (t (post-process-node node walk parent)))))
  
        (values (copy-code code :node-tree (walk-ast #'walk-node code
  						   :include-parent t))
  	      env))))
  
  ;;----------------------------------------------------------------------
  
  
negative.code:   (make-instance 'post-compile-process :code code :env env
  		 :used-symbol-macros (dedup-used (used-symbol-macros env))
  		 :used-macros (dedup-used (used-macros env))
  		 :used-compiler-macros (dedup-used (used-compiler-macros env))))
  
  ;;----------------------------------------------------------------------
  
  