Unused (now) function.
Chris Pressey
5 years ago
16 | 16 |
--
|
17 | 17 |
-- Helper functions
|
18 | 18 |
--
|
19 | |
|
20 | |
union (List []) env = env
|
21 | |
union (List (binding:rest)) env =
|
22 | |
append (List [binding]) (union (List rest) env)
|
23 | 19 |
|
24 | 20 |
evalAll i env [] acc cc =
|
25 | 21 |
cc $ List $ reverse acc
|