anchor.diff:  
   
   ;;; Analysis functions
  +
  +
  +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  +;;; Look for mutator use
   
   (define (analyze-for-set expressions)
   
  
positive.code:           ((list? expression)
             (if (eq? (car expression) 'let)
                 (crawl-looking-for-let (cddr expression)
                                        (analyze-let-bindings (cadr expression) report))
                 (list (crawl-looking-for-let (car expression) report)
                       (crawl-looking-for-let (cdr expression) report))))
            (else report)))
    
    (remove nil? (flatten* (map (lambda (ex)
                                  (crawl-looking-for-set ex '()))
                                expressions))))
  
  ;;; File processing
  
  
negative.code:   
    (let ((expressions (load-file filename)))
      (map (lambda (f) (f expressions))
           (list analyze-for-set
                 analyze-for-bugged-let
                 analyze-for-bugged-do
                 analyze-for-single-clause-ifs))))
  