about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2021-06-04 16:43:19 -0700
committerKartik K. Agaram <vc@akkartik.com>2021-06-04 16:43:19 -0700
commit224e264a65e8bbfd84e907ebb8a8314e6b574136 (patch)
tree5680325819dbe6730ee725bd4c59a0f626d07814
parentcfb5dbce59de941bf81bb5c7859945d58d0c6e65 (diff)
downloadmu-224e264a65e8bbfd84e907ebb8a8314e6b574136.tar.gz
.
-rw-r--r--shell/data.limg10
1 files changed, 5 insertions, 5 deletions
diff --git a/shell/data.limg b/shell/data.limg
index 21d54749..118c1a77 100644
--- a/shell/data.limg
+++ b/shell/data.limg
@@ -1,13 +1,13 @@
 (
   (globals . (
-    (mac . [(define mac (litmac litfn () (name params . body)
+    (mac . [(define mac (litmac litfn () ((name . params) . body)
   `(define ,name (litmac litfn () ,params ,@body))))])
-    (def . [(mac def ((name . params) . body)
+    (def . [(mac (def (name . params) . body)
   `(define ,name (fn ,params ,@body)))])
-    (do . [(mac do body `((fn () ,@body)))])
-    (let . [(mac let (var val . body)
+    (do . [(mac (do . body) `((fn () ,@body)))])
+    (let . [(mac (let var val . body)
   `((fn (,var) ,@body) ,val))])
-    (when . [(mac when (cond . body)
+    (when . [(mac (when cond . body)
   `(if ,cond (do ,@body) ()))])
     (hline1 . [(def (hline1 screen y x xmax color)
   (while (< x xmax)