diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2021-06-20 23:09:50 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2021-06-20 23:09:50 -0700 |
| commit | 0f071ae99bb66da0df0d5e6fc5da7e2459e33bf7 (patch) | |
| tree | fa283a51c30216f81b81e9672cd0386b93a9728d | |
| parent | 77f347c18185534e951b0f9bfa0990cc824ec8e1 (diff) | |
| download | mu-0f071ae99bb66da0df0d5e6fc5da7e2459e33bf7.tar.gz | |
.
| -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)))]) |