Repair a few places. `let` also needs to be fixed.
Chris Pressey
4 years ago
99 | 99 |
(abort (list (literal illegal-arguments) orig-val-list))
|
100 | 100 |
(recover
|
101 | 101 |
(eval given-env (head val-list))
|
102 | |
actual (self
|
|
102 |
actual (self self
|
103 | 103 |
(tail id-list) (tail val-list)
|
104 | 104 |
(prepend
|
105 | 105 |
(list (head id-list) actual)
|
102 | 102 |
)
|
103 | 103 |
(self self extended-env rest-formals rest-actuals env-for-actuals))))))
|
104 | 104 |
(macro (iargs ienv)
|
105 | |
(recover (extend-with-args env (head args) iargs ienv)
|
|
105 |
(recover (extend-with-args extend-with-args env (head args) iargs ienv)
|
106 | 106 |
extended-env (eval extended-env (head (tail args)))
|
107 | 107 |
error (abort error))))))
|