diff options
| author | Joel Martin <github@martintribe.org> | 2015-02-15 17:45:04 -0600 |
|---|---|---|
| committer | Joel Martin <github@martintribe.org> | 2015-02-15 17:45:04 -0600 |
| commit | dc2c5b3d8f41cbae56c6fb22847d0aac5806b51f (patch) | |
| tree | 3a6f481ff4ebb5b15613af480f2e83df7cb3fac0 /miniMAL/printer.json | |
| parent | c5d302358e0b519f9de6d570158d07d60fda6d97 (diff) | |
| download | mal-dc2c5b3d8f41cbae56c6fb22847d0aac5806b51f.tar.gz mal-dc2c5b3d8f41cbae56c6fb22847d0aac5806b51f.zip | |
miniMAL: add step5.
Diffstat (limited to 'miniMAL/printer.json')
| -rw-r--r-- | miniMAL/printer.json | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/miniMAL/printer.json b/miniMAL/printer.json index 8029413..df2ac82 100644 --- a/miniMAL/printer.json +++ b/miniMAL/printer.json @@ -28,7 +28,13 @@ ["`", "false"], ["if", ["symbol?", "exp"], ["get", "exp", ["`", "val"]], - ["str", ["`", "#<unknown: "], "exp", ["`", ">"]]]]]]]]]]], + ["if", ["malfunc?", "exp"], + ["str", ["`", "(fn* "], + ["pr-str", ["get", "exp", ["`", "params"]]], + ["`", " "], + ["pr-str", ["get", "exp", ["`", "ast"]]], + ["`", ")"]], + ["str", ["`", "#<unknown: "], "exp", ["`", ">"]]]]]]]]]]]], ["def", "pr-list", ["fn", ["lst", "print_readably", "sep"], [".", ["map", ["fn", ["s"], ["pr-str", "s", "print_readably"]], "lst"], |