diff options
| author | Joel Martin <github@martintribe.org> | 2015-02-15 22:04:45 -0600 |
|---|---|---|
| committer | Joel Martin <github@martintribe.org> | 2015-02-15 22:04:45 -0600 |
| commit | f618f6a11c661a74e5805a75b51815a0cafebaaf (patch) | |
| tree | 4bb059e6346da66336783d12a69c9e162a497097 /miniMAL/step3_env.json | |
| parent | 1981bf5766d9bb75a652cc781b817cc3150d12ef (diff) | |
| download | mal-f618f6a11c661a74e5805a75b51815a0cafebaaf.tar.gz mal-f618f6a11c661a74e5805a75b51815a0cafebaaf.zip | |
miniMAL: step8.
Diffstat (limited to 'miniMAL/step3_env.json')
| -rw-r--r-- | miniMAL/step3_env.json | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/miniMAL/step3_env.json b/miniMAL/step3_env.json index 9b45277..353c3dd 100644 --- a/miniMAL/step3_env.json +++ b/miniMAL/step3_env.json @@ -25,20 +25,20 @@ ["def", "EVAL", ["fn", ["ast", "env"], ["if", ["not", ["list?", "ast"]], - ["eval-ast", "ast", "env"], - ["let", ["a0", ["get", ["first", "ast"], ["`", "val"]]], - ["if", ["=", ["`", "def!"], "a0"], - ["env-set", "env", ["nth", "ast", 1], - ["EVAL", ["nth", "ast", 2], "env"]], - ["if", ["=", ["`", "let*"], "a0"], - ["let", ["let-env", ["env-new", "env"]], - ["do", - ["LET", "let-env", ["nth", "ast", 1]], - ["EVAL", ["nth", "ast", 2], "let-env"]]], - ["let", ["el", ["eval-ast", "ast", "env"], - "f", ["first", "el"], - "args", ["rest", "el"]], - ["apply", "f", "args"]]]]]]]], + ["eval-ast", "ast", "env"], + ["let", ["a0", ["get", ["first", "ast"], ["`", "val"]]], + ["if", ["=", ["`", "def!"], "a0"], + ["env-set", "env", ["nth", "ast", 1], + ["EVAL", ["nth", "ast", 2], "env"]], + ["if", ["=", ["`", "let*"], "a0"], + ["let", ["let-env", ["env-new", "env"]], + ["do", + ["LET", "let-env", ["nth", "ast", 1]], + ["EVAL", ["nth", "ast", 2], "let-env"]]], + ["let", ["el", ["eval-ast", "ast", "env"], + "f", ["first", "el"], + "args", ["rest", "el"]], + ["apply", "f", "args"]]]]]]]], ["def", "PRINT", ["fn", ["exp"], ["pr-str", "exp", true]]], |