diff options
| -rw-r--r-- | shell/data.limg | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/shell/data.limg b/shell/data.limg index 47d55891..281afa3a 100644 --- a/shell/data.limg +++ b/shell/data.limg @@ -5,8 +5,8 @@ (do . [(mac do body `((fn () ,@body)))]) (let . [(mac let (var val . body) `((fn (,var) ,@body) ,val))]) - (when . [(mac when (cond body) - `(if ,cond ,body ()))]) + (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) |