anchor.diff:                (for-each (lambda (it-clause)
                             ,@setup
                             (eval it-clause))
  -                   ',body))))
  +                        ',body))))
   
   (defmacro (it label . body)
     (if (not (or (symbol? label) (string? label)))
  
positive.code:     (format #t "~%Failures:~%")
      (for-each (lambda (m) (format #t "  ~A~%" m))
                failure-messages))
      (unless (zero? number-of-errors)
      (format #t "~%Errors:~%")
      (for-each (lambda (m) (format #t "  ~A~%" m))
                error-messages)))
  
negative.code: (define (reset-testing )
    (set! number-of-passes 0)
    (set! number-of-failures 0)
    (set! number-of-errors 0)
    (set! failure-messages '())
    (set! error-messages '())
    (set! verbose-tests nil))
  
  (define (log-pass msg)
  