allow multiple values in cps conversion

This commit is contained in:
msyds committed 2026-08-27 00:57:09 -06:00
1 parent 87baed9efc
commit 21b9f0e69d
9 files changed
+84 -29

No files matched your search

+2
View File
@@ -0,0 +1,2 @@
ret > ExitSuccess
out > #t
+12
View File
@@ -0,0 +1,12 @@
(letrec ((iter (λ (n f)
(if (zero? n)
#f
(begin (f n)
(iter (- n 1) f))))))
(call/cc
(λ (k)
(iter 10 (λ (n)
;; i don't feel like implementing (= n 5) right now lmfao
(if (zero? (- n 5))
(k #t)
#f))))))