about summary refs log tree commit diff stats
path: root/shell/data.limg
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2021-05-15 12:42:41 -0700
committerKartik K. Agaram <vc@akkartik.com>2021-05-15 12:43:35 -0700
commitc4475d83b747475663ad089b63169df88842be51 (patch)
treec4b01768b26da96c50cc967f254c2ba93ed5c95a /shell/data.limg
parentc26aef11b7c55b89e85cdd8f2b7e8254b180278d (diff)
downloadmu-c4475d83b747475663ad089b63169df88842be51.tar.gz
shell: roll back a change to the 'when' macro
Introduced in commit 1adc904ef3 from a week ago, but it turns out brcircle
has been consistently broken ever since.
Diffstat (limited to 'shell/data.limg')
-rw-r--r--shell/data.limg4
1 files changed, 2 insertions, 2 deletions
diff --git a/shell/data.limg b/shell/data.limg
index 281afa3a..47d55891 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 (do ,@body) ()))])
+    (when . [(mac when (cond body)
+  `(if ,cond ,body ()))])
     (hline1 . [(def hline1 (fn (screen y x xmax color)
   (while (< x xmax)
     (pixel screen x y color)