git @ Cat's Eye Technologies Robin / a89f044
Fix definition of `list`. Chris Pressey 4 years ago
1 changed file(s) with 3 addition(s) and 3 deletion(s). Raw diff Collapse all Expand all
2323 '<<SPEC'
2424
2525 (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)))
2929 (if (equal? items ())
3030 ()
3131 (prepend (eval env (head items))