anchor.diff:                      (quote (unquote nparams))
                       (arg-count ())))))))
   
  -(define-walker reg-use (dest-type) ignore-domain)
  -(define-walker codegen (dest in-frame-base out-frame-base regs out)
  -               ignore-domain)
  +(define-trivial-walker reg-use (dest-type))
  +(define-trivial-walker codegen (dest in-frame-base out-frame-base regs out))
   
   ;;; Begin
   
  
positive.code: ;;;
  ;;; A "written" boolean attribute is added to each varrec.
  
  (define-walker classify-variables () ignore-domain)
  
  (define (mark-variable varrec use)
    (varrec-attr-set! varrec 'state
  
negative.code: 
  ;;; This phase is for miscellaneous simplifications
  
  (define-trivial-walker simplify ())
  
  ;;; Adjust lambdas so that they only take one body form.
  
  