This commit is contained in:
Kartik K. Agaram 2021-06-20 23:09:50 -07:00
parent 77f347c181
commit 0f071ae99b
1 changed files with 3 additions and 3 deletions

View File

@ -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)))])