diff options
| author | Joel Martin <github@martintribe.org> | 2015-03-07 09:04:07 -0600 |
|---|---|---|
| committer | Joel Martin <github@martintribe.org> | 2015-03-07 09:04:07 -0600 |
| commit | 10b07148ba8efec543ded60a4b7916960709ce1e (patch) | |
| tree | 43c10dbc3c6bd2035c34cabf5aca3aa08e37a2f6 /miniMAL | |
| parent | 64574360c510d644f5b8c175dbe3114f1f2d7b68 (diff) | |
| download | mal-10b07148ba8efec543ded60a4b7916960709ce1e.tar.gz mal-10b07148ba8efec543ded60a4b7916960709ce1e.zip | |
All step0: add test, fix bugs, remove step0 eval.
Diffstat (limited to 'miniMAL')
| -rw-r--r-- | miniMAL/miniMAL-core.json | 9 | ||||
| -rw-r--r-- | miniMAL/step0_repl.json | 8 |
2 files changed, 9 insertions, 8 deletions
diff --git a/miniMAL/miniMAL-core.json b/miniMAL/miniMAL-core.json index c22376a..25ee914 100644 --- a/miniMAL/miniMAL-core.json +++ b/miniMAL/miniMAL-core.json @@ -101,10 +101,11 @@ ["println", ["rep", "line"]], ["cb"]]]], "opts", {"ignoreUndefined": true, - "terminal": false}, - "opts", ["assoc!", "opts", ["`", "prompt"], "prompt"], - "opts", ["assoc!", "opts", ["`", "eval"], "evl"]], - [".", "r", ["`", "start"], "opts"]]]], + "terminal": false}], + ["do", + [".-", "opts", ["`", "prompt"], "prompt"], + [".-", "opts", ["`", "eval"], "evl"], + [".", "r", ["`", "start"], "opts"]]]]], null ] diff --git a/miniMAL/step0_repl.json b/miniMAL/step0_repl.json index 6599930..50f8846 100644 --- a/miniMAL/step0_repl.json +++ b/miniMAL/step0_repl.json @@ -3,16 +3,16 @@ ["load-file", ["`", "miniMAL-core.json"]], ["def", "READ", ["fn", ["strng"], - "strng"]], + "strng"]], ["def", "EVAL", ["fn", ["ast", "env"], - "ast"]], + "ast"]], ["def", "PRINT", ["fn", ["exp"], - "exp"]], + "exp"]], ["def", "rep", ["fn", ["strng"], - ["PRINT", ["EVAL", ["READ", "strng"], null]]]], + ["PRINT", ["EVAL", ["READ", "strng"], null]]]], ["repl", ["`", "user> "], "rep"], |