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 @@
+(begin 123 456) ; => 456
@@ -0,0 +1,2 @@
+ret > ExitSuccess
+out > #t
@@ -0,0 +1,4 @@
+(call/cc
+ (λ (k)
+   (begin (k #t)
+          #f)))
@@ -0,0 +1,2 @@
+ret > ExitSuccess
+out > #t
@@ -0,0 +1,5 @@
+;; confer ../callcc-early-exit-4
+(letrec ((app (λ (f x)
+                (begin (f x)
+                       #f))))
+  (call/cc (λ (k) (app k #t))))
@@ -0,0 +1,2 @@
+ret > ExitSuccess
+out > #t
@@ -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))))
@@ -0,0 +1,2 @@
+ret > ExitSuccess
+out > #t
@@ -0,0 +1,5 @@
+(call/cc
+ (λ (k)
+   (begin ((λ (x) (k x))
+           #t)
+          #f)))