anchor.diff:  					             x))
   					   (funcall
   						 (compose #'reduce-tags
  -								  ;#'remove-code
  +								  #'remove-code
   								  #'opt-peephole-remove-void
   								  )
   						 x))))
  
positive.code: 	     #'((x)
  			  (opt-peephole-fun #'remove-code
  				((and (%setq? a)
  					  (atom .a.)
  					  (atomic? ..a.)
  				      (opt-peephole-will-be-set-again? d .a.))
  			  	  ; Don't set variable that will be modified anyway.
  				  (remove-code d))))
  
  
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
  