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