diff options
| -rw-r--r-- | shell/data.limg | 6 |
1 files 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)))]) |