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

new shell macro: do

This commit is contained in:
Kartik K. Agaram 2021-05-07 21:13:24 -07:00
parent 888b4cd8ea
commit 1adc904ef3
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
shell/data.limg
View File

@ -2,10 +2,11 @@
(globals . (
(mac . [(def mac (litmac litfn () (name params . body)
`(def ,name (litmac litfn () ,params ,@body))))])
(when . [(mac when (cond body)
`(if ,cond ,body ()))])
(do . [(mac do body `((fn () ,@body)))])
(let . [(mac let (var val . body)
`((fn (,var) ,@body) ,val))])
(when . [(mac when (cond . body)
`(if ,cond (do ,@body) ()))])
(hline1 . [(def hline1 (fn (screen y x xmax color)
(while (< x xmax)
(pixel screen x y color)