new shell macro: do
This commit is contained in:
parent
888b4cd8ea
commit
1adc904ef3
|
@ -2,10 +2,11 @@
|
||||||
(globals . (
|
(globals . (
|
||||||
(mac . [(def mac (litmac litfn () (name params . body)
|
(mac . [(def mac (litmac litfn () (name params . body)
|
||||||
`(def ,name (litmac litfn () ,params ,@body))))])
|
`(def ,name (litmac litfn () ,params ,@body))))])
|
||||||
(when . [(mac when (cond body)
|
(do . [(mac do body `((fn () ,@body)))])
|
||||||
`(if ,cond ,body ()))])
|
|
||||||
(let . [(mac let (var val . body)
|
(let . [(mac let (var val . body)
|
||||||
`((fn (,var) ,@body) ,val))])
|
`((fn (,var) ,@body) ,val))])
|
||||||
|
(when . [(mac when (cond . body)
|
||||||
|
`(if ,cond (do ,@body) ()))])
|
||||||
(hline1 . [(def hline1 (fn (screen y x xmax color)
|
(hline1 . [(def hline1 (fn (screen y x xmax color)
|
||||||
(while (< x xmax)
|
(while (< x xmax)
|
||||||
(pixel screen x y color)
|
(pixel screen x y color)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user