6 lines
75 B
Scheme
6 lines
75 B
Scheme
(call/cc
|
|
(λ (k)
|
|
(begin ((λ (x) (k x))
|
|
#t)
|
|
#f)))
|