diff options
| author | Joel Martin <github@martintribe.org> | 2015-02-25 23:01:16 -0600 |
|---|---|---|
| committer | Joel Martin <github@martintribe.org> | 2015-02-25 23:01:16 -0600 |
| commit | 3fb3743ff483cd1e4612d87557eecc62817b10b2 (patch) | |
| tree | 6da27695b27567362b4c01dc80679d7c78380519 /miniMAL/printer.json | |
| parent | bf8237d5ee3f1cbb3a3a7eb9d5094720361c46bf (diff) | |
| download | mal-3fb3743ff483cd1e4612d87557eecc62817b10b2.tar.gz mal-3fb3743ff483cd1e4612d87557eecc62817b10b2.zip | |
miniMAL: add classOf and fix printing.
Diffstat (limited to 'miniMAL/printer.json')
| -rw-r--r-- | miniMAL/printer.json | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/miniMAL/printer.json b/miniMAL/printer.json index 2a6a51d..7463c78 100644 --- a/miniMAL/printer.json +++ b/miniMAL/printer.json @@ -23,7 +23,7 @@ ["keys", "exp"]], ["`", "join"], ["`", " "]], ["`", "}"]], - ["if", ["=", ["`", "string"], ["type", "exp"]], + ["if", ["=", ["`", "[object String]"], ["classOf", "exp"]], ["if", ["=", ["`", "\u029e"], ["get", "exp", 0]], ["str", ["`", ":"], ["slice", "exp", 1]], ["if", "print_readably", @@ -36,7 +36,7 @@ ["`", "replace"], ["RegExp", ["`", "\n"], ["`", "g"]], ["`", "\\n"]], ["`", "\""]], "exp"]], - ["if", ["=", ["`", "number"], ["type", "exp"]], + ["if", ["=", ["`", "[object Number]"], ["classOf", "exp"]], "exp", ["if", ["=", null, "exp"], ["`", "nil"], @@ -52,9 +52,11 @@ ["`", " "], ["pr-str", ["get", "exp", ["`", "ast"]]], ["`", ")"]], + ["if", ["=", ["`", "[object Function]"], ["classOf", "exp"]], + ["str", ["`", "#<native function>"]], ["if", ["atom?", "exp"], ["str", ["`", "(atom "], ["get", "exp", ["`", "val"]], ["`", ")"]], - ["str", ["`", "#<unknown: "], "exp", ["`", ">"]]]]]]]]]]]]]]], + ["str", ["`", "#<unknown: "], "exp", ["`", ">"]]]]]]]]]]]]]]]], ["def", "pr-list", ["fn", ["lst", "print_readably", "sep"], [".", ["map", ["fn", ["s"], ["pr-str", "s", "print_readably"]], "lst"], |