anchor.diff:    (fail "Somehow we reached unreachable code in a tagbody."))
   
   (test cps-tagbody
  -  (with-call/cc ()
  +  (with-call/cc
       (tagbody
          (go a)
          (reached-unreachable-code)
          a
          (pass)))
  -  (with-call/cc ()
  +  (with-call/cc
       (tagbody
          (go a) (reached-unreachable-code)
        b
  
positive.code:        (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 (+))))))))
  
  (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)))))
  
  (test cps-block/return-from
    (is (= 1
           (with-call/cc ()
             (block foo
                 nil
                 (return-from foo 1)
                 nil))))
    (is (eql t 
             (with-call/cc ()
                 (block foo
                   (return-from foo t)
                   nil)))))
  
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))
  