diff --git a/test.scm b/test.scm index 2886ae79..c010f727 100644 --- a/test.scm +++ b/test.scm @@ -32,8 +32,8 @@ ; Need to rewrite the code to use this, and preserve the global def (define (test) (call/cc - (lambda (k) - (k #t)))) + (lambda (return) + (return #t)))) (write (test)) ;(write