diff options
Diffstat (limited to 'shell/data.limg')
-rw-r--r-- | shell/data.limg | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/shell/data.limg b/shell/data.limg index 14eab44e..b3750892 100644 --- a/shell/data.limg +++ b/shell/data.limg @@ -1,5 +1,9 @@ ( (globals . ( + (mac . [(def mac (litmac litfn () (name params . body) + `(def ,name (litmac litfn () ,params ,@body))))]) + (when . [(mac when (cond body) + `(if ,cond ,body ()))]) (hline . [(def hline (fn (screen y color) (hline1 screen y 0 (width screen) color)))]) (hline1 . [(def hline1 (fn (screen y lo hi color) |