akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

new macro: ret 

http://arclanguage.org/item?id=11068
This commit is contained in:
Kartik K. Agaram 2021-06-20 21:35:02 -07:00
parent deb610367f
commit ecc763f092
1 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
shell/data.limg
View File

@ -18,6 +18,8 @@
(list . [def (list . args)
# we should probably make a copy here
args])
(ret . [mac (ret var val . body)
`(let ,var ,val ,@body ,var)])
(len . [def (len l)
if (no l)
0
@ -125,12 +127,11 @@
dx
0)))))))))))])
(read_line . [def (read_line keyboard)
(let str (stream)
(let c (key keyboard)
(while (not (or (= c 0) (= c 10)))
(write str c)
(set c (key keyboard))))
str)])
ret str (stream)
let c (key keyboard)
while (not (or (= c 0) (= c 10)))
(write str c)
(set c (key keyboard))])
(wait . [def (wait keyboard)
while (= 0 (key keyboard))
()])