anchor.diff:  	     #'((x)
   			  (opt-peephole-fun #'remove-code
   				((and (%setq? a)
  -					  (atom .a.)
  +					  (expex-sym? .a.)
   					  (atomic? ..a.)
  -				      (opt-peephole-will-be-set-again? d .a.))
  +				      (not (opt-peephole-will-be-set-again? d .a.)))
   			  	  ; Don't set variable that will be modified anyway.
   				  (remove-code d))))
   
  
positive.code: 					             x))
  					   (funcall
  						 (compose #'reduce-tags
  								  ;#'remove-code
  								  #'opt-peephole-remove-void
  								  )
  						 x))))
  
negative.code: 		 (cons a (opt-peephole-remove-void (opt-peephole-find-next-tag d))))))
  
  (defun opt-peephole-will-be-set-again? (x v)
    (when x
      (or (vm-jump? x.) ; We don't know what happens after a jump.
  	    (find-tree x. v) ; Variable used?
          (opt-peephole-will-be-set-again? .x v))))
  
  (defun opt-peephole (x)
    (with
  