rrrg

2026-08-27 01:01:17 -06:00
parent 21b9f0e69d
commit 009a154a6e
12 changed files with 101 additions and 18 deletions
@@ -0,0 +1,5 @@
+;; confer ../callcc-early-exit-3
+(letrec ((app (λ (f x)
+                (begin (f x)
+                       #f))))
+  (call/cc (λ (k) (app (λ (x) (k x)) #t))))