6 lines
149 B
Scheme
6 lines
149 B
Scheme
;; confer ../callcc-early-exit-4
|
|
(letrec ((app (λ (f x)
|
|
(begin (f x)
|
|
#f))))
|
|
(call/cc (λ (k) (app k #t))))
|