This commit is contained in:
parent
77f347c181
commit
0f071ae99b
|
@ -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)))])
|
||||
|
|
Loading…
Reference in New Issue