Formatting.
catseye
13 years ago
43 | 43 |
(cons entry (concat-envs concat-envs rest old-env)))))))
|
44 | 44 |
(call-lambda (lambda (func args env)
|
45 | 45 |
(let* ((arg-vals (interpret-args interpret-args args env)))
|
46 | |
(func arg-vals)))))
|
|
46 |
(func arg-vals)))))
|
47 | 47 |
(cond
|
48 | 48 |
((null? program)
|
49 | 49 |
program)
|
33 | 33 |
(cons entry (concat-envs concat-envs rest old-env))))))
|
34 | 34 |
(call-lambda (lambda (func args env)
|
35 | 35 |
(let* ((arg-vals (interpret-args interpret-args args env)))
|
36 | |
(func arg-vals)))))
|
37 | |
(if
|
38 | |
(null? program)
|
|
36 |
(func arg-vals)))))
|
|
37 |
(if (null? program)
|
39 | 38 |
program
|
40 | 39 |
(if (list? program)
|
41 | 40 |
(let* ((tag (car program))
|