From 1adc904ef31a77aa7044ce9e828036f539588369 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Fri, 7 May 2021 21:13:24 -0700
Subject: [PATCH] new shell macro: do

---
 shell/data.limg | 5 +++--
 1 file 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)