3 ["def", "env-bind", ["fn", ["env", "b", "e"],
4 ["if", ["empty?", "b"],
6 ["if", ["=", ["`", "&"],
7 ["get", ["first", "b"], ["`", "val"]]],
8 ["assoc!", "env", ["get", ["nth", "b", 1], ["`", "val"]], "e"],
9 ["env-bind", ["assoc!", "env", ["get", ["first", "b"], ["`", "val"]],
14 ["def", "env-new", ["fn", ["&", "args"],
15 ["let", ["env", ["hash-map", ["`", "__outer__"], ["first", "args"]]],
16 ["if", ["<=", ["count", "args"], 1],
18 ["env-bind", "env", ["get", "args", 1], ["get", "args", 2]]]]]],
20 ["def", "env-find", ["fn", ["env", "key"],
21 ["let", ["k", ["get", "key", ["`", "val"]]],
22 ["if", ["contains?", "env", "k"],
24 ["if", ["get", "env", ["`", "__outer__"]],
25 ["env-find", ["get", "env", ["`", "__outer__"]], "key"],
28 ["def", "env-get", ["fn", ["env", "key"],
29 ["let", ["k", ["get", "key", ["`", "val"]],
30 "e", ["env-find", "env", "key"]],
33 ["throw", ["str", ["`", "'"], "k", ["`", "' not found"]]]]]]],
35 ["def", "env-set", ["fn", ["env", "key", "val"],
36 ["let", ["k", ["get", "key", ["`", "val"]]],
38 ["assoc!", "env", "k", "val"],