diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2021-05-19 17:30:25 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2021-05-19 17:30:25 -0700 |
| commit | f8c28e3a368b85ac3678ef379d1816bfd2ba23c7 (patch) | |
| tree | 8994379f810e97226421770e2fcfcc50c678e9f7 | |
| parent | 831e2e0d646e4894ebb34f4a5c53aa1865edb884 (diff) | |
| download | mu-f8c28e3a368b85ac3678ef379d1816bfd2ba23c7.tar.gz | |
.
| -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) |