input2 added

This commit is contained in:
vaclavt
2022-05-19 18:38:52 +02:00
parent aec06b5f52
commit 6506494750
5 changed files with 72 additions and 24 deletions

View File

@@ -0,0 +1,18 @@
(defmacro until (cnd body)
(list 'while '(not (eval cnd))
body
))
(def stop nil)
(until stop
(do
(def line (input2 "=> "))
(if (= line "!q")
(set! stop #t)
(print line))
))