anchor.diff:    (collect-closures program)
     (introduce-boxes program)
     (lambda-label program)
  -  (codegen-program program)
  -  ;(format~ true "~S~%" program)
  +  ;(codegen-program program)
  +  (format~ true "~S~%" (debug-form program))
     )
   
   (define keywords-1
  
positive.code:           (emit-indirect-call out)))
  
      (emit-restore-%func out)
      (emit-convert-value out %funcres dest new-frame-base out-frame-base)))
  
  ;;; Strings and vectors
  
  
negative.code: (define keywords-2 '(define lambda set! quote
                       c-call))
  
  (define internal-keywords '(ref call return varargs-return
                              make-box box-ref box-set!
                              check-arg-count arg-count
                              negate
  