Test output for continuations [ok]

Testing time: 1s

'/usr/home/chicken/salmonella/build/salmonella-run-publish/chicken/bin/csi' -script run.scm < /dev/null 2>&1

Testing CONTINUATIONS ...
----------------------------
(not (let ((cc (continuation)))
       (cond ((continuation? cc) (throw cc (lambda (arg) #f)))
             ((procedure? cc) (cc cc)))))
... passed in (continuations?)
(= 5 (+ 1 (call (lambda (cc) (* 5 (cc 4))))))
... passed in (continuations?)
(= (search even? '(1 2 3)) 2)
... passed in (continuations?)
(not (search even? '(1 3)))
... passed in (continuations?)
(= (search-with-goto odd? '(0 1 2 3)) 1)
... passed in (continuations?)
(not (search-with-goto odd? '(0 2)))
... passed in (continuations?)
(= (handled-search (treat even?) '(1 2 3)) 2)
... passed in (continuations?)
NORMAL BODY
NORMAL BODY
NORMAL BODY
EXCEPTIONAL CASE
(zero? (product 1 2 0 3 4))
... passed in (continuations?)
NORMAL BODY
NORMAL BODY
NORMAL BODY
NORMAL BODY
NORMAL BODY
(= (product 1 2 3 4) 24)
... passed in (continuations?)

Results of CONTINUATIONS
----------------------------
All tests passed