anchor.diff:  
   (define-normalize-lambdas (lambda params . body)
     (rplaca (cdr form) (acons 'name false (normalize-lambda-params params)))
  -  (normalize-lambdas-2 form))
  +  (normalize-lambdas-recurse form))
   
   (define-normalize-lambdas (define var . val)
  -  (normalize-lambdas-2 form)
  +  (normalize-lambdas-recurse form)
     (when (and val (eq (caar val) 'lambda))
       ;; propogate variable name into the lambda, as a hint for readable
       ;; code generation
  
positive.code: 
  (define-collect-defines-aux (define var . val)
    (rplaca cell (cons (list var) (car cell)))
    (collect-defines-aux-2 form cell))
  
  (define-collect-defines-aux (begin attrs . body)
    (let* ((cell (cons () body)))
  
negative.code: 
  (define (comment-form-forms forms)
      (mapfor (form forms) (comment-form form)))
  (define (comment-form-recurse form)
      (list* (car form) (cadr form) (comment-form-forms (cddr form))))
  (define-walker comment-form ())
  
  