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

.

This commit is contained in:
Kartik K. Agaram 2021-06-04 16:43:19 -07:00
parent cfb5dbce59
commit 224e264a65
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
shell/data.limg
View File

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