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/stdlib/stdlib.lsp
+++ b/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)