anchor.diff:      (raw-apply-with-args args-len
         (lambda ()
           (copy-args args (raw-args-address) 0)
  -        (raw-apply-jump func args-len)))))
  +        (raw-apply-jump func args-len))))
  +
  +  (define gensym-counter 0)
  +  (define (gensym)
  +    (intern (format "gensym-~D" (set! gensym-counter (1+ gensym-counter))))))
   
   ;;; Character istreams
   
  
positive.code:   (reify (stdout a b c))
    (reify (stderr a b c))
    (reify (stdin-reader a b c))
    (reify (intern a)))
  
  ;;; Arithmetic
  
  
negative.code: (reify (function? a))
  
  (reify (symbol? a))
  (reify (symbol-name a))
  
  (reify (pair? a))
  