examples/callcc.scm


1
2
3
4
5
6

(define return #f) 
(display (+ 10 (call/cc 
		(lambda (cont) 
		  (set! return cont) 
		  1))))
(display (return 1000))