From ddf866ee279875bdc36db68bc819b8c322531a0c Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Tue, 23 Jun 2009 11:53:06 +0900 Subject: [PATCH] adding basic call/cc tests --- tests/r5rs-tests.scm | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/tests/r5rs-tests.scm b/tests/r5rs-tests.scm index e11ced4c..8fc0606e 100644 --- a/tests/r5rs-tests.scm +++ b/tests/r5rs-tests.scm @@ -368,6 +368,10 @@ (test '(3 3) (let ((p (delay (+ 1 2)))) (list (force p) (force p)))) +(test 7 (call-with-current-continuation (lambda (k) (+ 2 5)))) + +(test 3 (call-with-current-continuation (lambda (k) (+ 2 5 (k 3))))) + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (test-report)