[ create a new paste ] login | about

Link: http://codepad.org/b5OBTxYb    [ raw code | output | fork ]

Scheme, pasted on Mar 25: 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

(define kz #f)
(begin
  (print "start")
  (newline)
  (call/cc (lambda (cc)
	     (set! kz cc)
	     (print "call/cc")
	     (newline)))
  (print "after call/cc")
  (newline))
(print "outer begin")
(newline)


(kz)


Output: 
1
2
3
4

"start"
"call/cc"
"after call/cc"
"outer begin"


Create a new paste based on this one


Comments: