anchor.diff:  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;; Look for single clause ifs
   
  -(define (lint:analyze-ifs expressions)
  +(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))
  
positive.code: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; Look for cascading initial bindings in a let or named let
  
  (define (lint:analyze-for-bugged-let expressions)
  
    (define (back-reference-found? expr previous-bindings)
      (cond ((nil? expr)
  
negative.code: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; Look for mutator use
  
  (define (lint:analyze-set expressions)
  
    (define (crawl-looking-for-set expression report)
      (cond ((nil? expression) report)
  