until maco wip

2022-05-23 21:18:53 +02:00
parent fd8f3c6e06
commit 8e142dc7ea
3 changed files with 11 additions and 0 deletions
--- a/debug.lsp
+++ b/debug.lsp
@@ -1,3 +1,8 @@
+(dotimes i 4 (print i) )
+
+(def acc 0)
+;(dotimes i 4 (do (set! acc (+ acc i)) (print acc)) )
+(print (dotimes i 4 (do (set! acc (+ acc i)) (print acc))) )

 (defmacro until (cnd body)
 	(list 'while '(not (eval cnd))