Fix definition of `list`.
Chris Pressey
4 years ago
23 | 23 | '<<SPEC' |
24 | 24 | |
25 | 25 | (define list (macro (args env) |
26 | (bind list-r (macro (args env) | |
27 | (bind self (eval (head args) env) | |
28 | (bind items (eval (head (tail args)) env) | |
26 | (bind list-r (macro (iargs ienv) | |
27 | (bind self (eval ienv (head iargs)) | |
28 | (bind items (eval ienv (head (tail iargs))) | |
29 | 29 | (if (equal? items ()) |
30 | 30 | () |
31 | 31 | (prepend (eval env (head items)) |