anchor.diff:  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   ;;; Look for mutator use
   
  -(define (analyze-for-set expressions)
  +(define (lint:analyze-for-set expressions)
   
     (define (crawl-looking-for-set expression report)
       (cond ((nil? expression) report)
             ((atom? expression) report)
             ((list? expression)
              (if (memq (car expression) '(set! set-car! set-cdr!))
  -               (cons (format #f "Mutator found ~A" expression) report)
  +               (cons (format #f "Mutator found: ~A" expression) report)
                  (list (crawl-looking-for-set (car expression) report)
                        (crawl-looking-for-set (cdr expression) report))))
             (else report)))
  
positive.code:           (else report)))
    
    (remove nil? (flatten* (map (lambda (ex)
                                  (crawl-looking-for-let ex '()))
                                expressions))))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; Look for cascading initial bindings in a do
  
  (define (analyze-for-bugged-do expressions)
  
    (define (back-reference-found? expr previous-bindings)
      (format #t "e: ~A b: ~A~%" expr previous-bindings)
  
negative.code: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; Look for single clause ifs
  
  (define (lint:analyze-for-single-clause-ifs expressions)
  
    (define (crawl-looking-for-if expression report)
      (cond ((nil? expression) report)
            ((atom? expression) report)
            ((list? expression)
             (if (eq? (car expression) 'if)
                 (crawl-looking-for-do (cddr expression)
                                        (analyze-do-bindings (cadr expression) report))
                 (list report
                       (crawl-looking-for-do (car expression) '())
                       (crawl-looking-for-do (cdr expression) '()))))
            (else report)))
    
    (remove nil? (flatten* (map (lambda (ex)
                                  (crawl-looking-for-if ex '()))
                                expressions))))
  
  ;;; File processing
  
  