From 224e264a65e8bbfd84e907ebb8a8314e6b574136 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Fri, 4 Jun 2021 16:43:19 -0700 Subject: . --- shell/data.limg | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'shell/data.limg') 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) -- cgit 1.4.1-2-gfad0