diff options
| author | Joel Martin <github@martintribe.org> | 2015-02-12 01:11:50 -0600 |
|---|---|---|
| committer | Joel Martin <github@martintribe.org> | 2015-02-24 09:17:42 -0600 |
| commit | 7ebf5219e1be21ed10cecabda8262c77da7465ae (patch) | |
| tree | 46b5e720d32f8491e859936348f96356b2bae19b /miniMAL/env.json | |
| parent | defc6335a611fcb78bc33fe6f3b074a2d88aa54c (diff) | |
| download | mal-7ebf5219e1be21ed10cecabda8262c77da7465ae.tar.gz mal-7ebf5219e1be21ed10cecabda8262c77da7465ae.zip | |
miniMAL: add step4 (without functions).
Diffstat (limited to 'miniMAL/env.json')
| -rw-r--r-- | miniMAL/env.json | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/miniMAL/env.json b/miniMAL/env.json index 30ab952..0dfa67b 100644 --- a/miniMAL/env.json +++ b/miniMAL/env.json @@ -7,7 +7,7 @@ ["get", ["first", "b"], ["`", "val"]]], ["assoc!", "env", ["get", ["nth", "b", 1], ["`", "val"]], "e"], ["env-bind", ["assoc!", "env", ["get", ["first", "b"], ["`", "val"]], - ["get", ["first", "e"], ["`", "val"]]], + ["first", "e"]], ["rest", "b"], ["rest", "e"]]]]]], @@ -15,7 +15,7 @@ ["let", ["env", ["hash-map", ["`", "__outer__"], ["first", "args"]]], ["if", ["<=", ["count", "args"], 1], "env", - ["bind-env", "env", ["get", "args", 1], ["get", "args", 2]]]]]], + ["env-bind", "env", ["get", "args", 1], ["get", "args", 2]]]]]], ["def", "env-find", ["fn", ["env", "key"], ["let", ["k", ["get", "key", ["`", "val"]]], |