until maco wip

Readme.md

@@ -77,6 +77,7 @@ utils/local_install.sh
 - multiline editing (see kilocpp editor)
 
 #### Doc
+- add doc for macros
 - add functions from stdlib into doc
 - doc for set!
 

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)) 

stdlib/stdlib.lsp

@@ -78,6 +78,11 @@
 		body
     ))    
 
+(defmacro until (cnd body)
+	(list 'while '(not (eval cnd)) 
+		body
+    ))  
+
 
 ; return 1 when list contains item otherwise nil
 (defn member (lst itm)