git @ Cat's Eye Technologies Pixley / 6c55b22
Formatting. catseye 13 years ago
2 changed file(s) with 3 addition(s) and 4 deletion(s). Raw diff Collapse all Expand all
4343 (cons entry (concat-envs concat-envs rest old-env)))))))
4444 (call-lambda (lambda (func args env)
4545 (let* ((arg-vals (interpret-args interpret-args args env)))
46 (func arg-vals)))))
46 (func arg-vals)))))
4747 (cond
4848 ((null? program)
4949 program)
3333 (cons entry (concat-envs concat-envs rest old-env))))))
3434 (call-lambda (lambda (func args env)
3535 (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)
3938 program
4039 (if (list? program)
4140 (let* ((tag (car program))