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