call_cc_test.scm

(define g '())

(define (foo)
	(define x 1)
	(define (f) x)
	(call/cc (lambda (cont)
		(set! g cont)
	))
	(print (f))
	(set! x (+ x 1))
)

(foo) ; 1
(print (g)) ; 2
(print (g)) ; 3