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/miniMAL-core.json | |
| parent | defc6335a611fcb78bc33fe6f3b074a2d88aa54c (diff) | |
| download | mal-7ebf5219e1be21ed10cecabda8262c77da7465ae.tar.gz mal-7ebf5219e1be21ed10cecabda8262c77da7465ae.zip | |
miniMAL: add step4 (without functions).
Diffstat (limited to 'miniMAL/miniMAL-core.json')
| -rw-r--r-- | miniMAL/miniMAL-core.json | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/miniMAL/miniMAL-core.json b/miniMAL/miniMAL-core.json index a4acfec..d870604 100644 --- a/miniMAL/miniMAL-core.json +++ b/miniMAL/miniMAL-core.json @@ -77,6 +77,16 @@ ["def", "apply", ["fn", ["a", "b"], [".", "a", ["`", "apply"], "a", "b"]]], +["def", "or", ["~", ["fn", ["&", "xs"], + ["if", ["empty?", "xs"], + null, + ["if", ["=", 1, ["count", "xs"]], + ["first", "xs"], + ["list", ["`", "let"], ["list", ["`", "or_FIXME"], ["first", "xs"]], + ["list", ["`", "if"], ["`", "or_FIXME"], + ["`", "or_FIXME"], + ["concat", ["`", ["or"]], ["rest", "xs"]]]]]]]]], + ["def", "typeof", ["fn", ["a"], ["js", ["str", ["`", "typeof "], ["pr-str", "a"]]]]], ["def", "repl", ["fn",["prompt", "rep"], |