10 lines
240 B
Scheme
10 lines
240 B
Scheme
|
;;; -*-Scheme-*-
|
||
|
|
|
||
|
|
(let ((k (call-with-current-continuation (lambda (c) c))))
|
||
|
|
(display 1)
|
||
|
|
(call-with-current-continuation (lambda (c) (k c)))
|
||
|
|
(display 2)
|
||
|
|
(call-with-current-continuation (lambda (c) (k c)))
|
||
|
|
(display 3)
|
||
|
|
(newline))
|