From 0f071ae99bb66da0df0d5e6fc5da7e2459e33bf7 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Sun, 20 Jun 2021 23:09:50 -0700 Subject: . --- shell/data.limg | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/shell/data.limg b/shell/data.limg index 72eba040..5b8a0a0d 100644 --- a/shell/data.limg +++ b/shell/data.limg @@ -68,10 +68,10 @@ (list (list (car xs))) (cons (list (car xs) (cadr xs)) (pair (cddr xs)))]) - (with . [mac (with vars_vals . body) - `((fn ,(map1 car (pair vars_vals)) + (with . [mac (with bindings . body) + `((fn ,(map1 car (pair bindings)) ,@body) - ,@(map1 cadr (pair vars_vals)))]) + ,@(map1 cadr (pair bindings)))]) (afn . [mac (afn params . body) `(let self () (set self (fn ,params ,@body)))]) -- cgit 1.4.1-2-gfad0