anchor.diff:  (define (lint:analyze-for-bugged-let expressions)
   
     (define (back-reference-found? expr previous-bindings)
  -    (format #t "e: ~A b: ~A~%" expr previous-bindings)
       (cond ((nil? expr)
              #f)
             ((atom? expr)
  
positive.code: (define (lint:analyze-for-bugged-do expressions)
  
    (define (back-reference-found? expr previous-bindings)
      (format #t "e: ~A b: ~A~%" expr previous-bindings)
      (cond ((nil? expr)
             #f)
            ((atom? expr)
  
negative.code:       expressions))
    
    (let ((expressions (load-file filename)))
      (flatten* (map (lambda (f) (f expressions))
                     (list lint:analyze-for-set
                           lint:analyze-for-bugged-let
                           lint:analyze-for-bugged-do
                           lint:analyze-for-single-clause-ifs)))))
  