anchor.diff:  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;; Look for mutator use
   
  -(define (lint:analyze-for-set expressions)
  +(define (lint:analyze-set expressions)
   
     (define (crawl-looking-for-set expression report)
       (cond ((nil? expression) report)
  
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:   
    (let ((expressions (load-file filename)))
      (flatten* (map (lambda (f) (f expressions))
                     (list lint:analyze-set
                           lint:analyze-let
                           lint:analyze-do
                           lint:analyze-if)))))
  