anchor.diff:    
     (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)))))
  +                   (list lint:analyze-set
  +                         lint:analyze-let
  +                         lint:analyze-do
  +                         lint:analyze-if)))))
  
positive.code: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; Look for cascading initial bindings in a do
  
  (define (lint:analyze-for-bugged-do expressions)
  
    (define (back-reference-found? expr previous-bindings)
      (cond ((nil? expr)
  
negative.code: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; Look for single clause ifs
  
  (define (lint:analyze-if expressions)
  
    (define (analyze-if-clauses if-expr report)
      (cond ((eq? (length if-expr) 3) (format #f "Single clause IF: ~A" if-expr))
  