diff options
| -rw-r--r-- | shell/data.limg | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/shell/data.limg b/shell/data.limg index 7b8654be..8b46e58b 100644 --- a/shell/data.limg +++ b/shell/data.limg @@ -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) |