5 lines
61 B
Scheme
5 lines
61 B
Scheme
(call/cc
|
|
(λ (k)
|
|
(begin ((λ () (k #t)))
|
|
#f)))
|
(call/cc
|
|
(λ (k)
|
|
(begin ((λ () (k #t)))
|
|
#f)))
|