anchor.diff:         (is (= a 47))))))
   
   (test cps-apply
  -  (is (= 0 (with-call/cc () (+))))
  -  (is (= 1 (with-call/cc () (+ 1))))
  -  (is (= 2 (with-call/cc () (+ 1 1))))
  -  (is (= 3 (with-call/cc () (+ 1 (+ 1 (+ 1 (+))))))))
  +  (is (= 0 (with-call/cc (+))))
  +  (is (= 1 (with-call/cc (+ 1))))
  +  (is (= 2 (with-call/cc (+ 1 1))))
  +  (is (= 3 (with-call/cc (+ 1 (+ 1 (+ 1 (+))))))))
   
   (test cps-if
  -  (is (= 1 (with-call/cc () (if t 1))))
  -  (is (= 1 (with-call/cc () (if nil 0 1))))
  -  (is (null (with-call/cc () (if nil 1)))))
  +  (is (= 1 (with-call/cc (if t 1))))
  +  (is (= 1 (with-call/cc (if nil 0 1))))
  +  (is (null (with-call/cc (if nil 1)))))
   
   (test cps-block/return-from
     (is (= 1
  -         (with-call/cc ()
  +         (with-call/cc
              (block foo
                  nil
                  (return-from foo 1)
                  nil))))
     (is (eql t 
  -           (with-call/cc ()
  +           (with-call/cc
                  (block foo
                    (return-from foo t)
                    nil)))))
  
positive.code:   (fail "Somehow we reached unreachable code in a tagbody."))
  
  (test cps-tagbody
    (with-call/cc ()
      (tagbody
         (go a)
         (reached-unreachable-code)
         a
         (pass)))
    (with-call/cc ()
      (tagbody
         (go a) (reached-unreachable-code)
       b
  
negative.code:        (go b) (reached-unreachable-code)
       c
         (pass)))
    (with-call/cc
      (let ((counter 0))
        (dotimes (i 5)
          (incf counter))
        (is (= 5 counter))))
    (with-call/cc
      (let ((i 0))
        (tagbody
         a (incf i) (is (= 1 i))
  