From dc2c5b3d8f41cbae56c6fb22847d0aac5806b51f Mon Sep 17 00:00:00 2001
From: Joel Martin <github@martintribe.org>
Date: Sun, 15 Feb 2015 17:45:04 -0600
Subject: miniMAL: add step5.

---
 miniMAL/printer.json | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'miniMAL/printer.json')

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"],
-- 
cgit v1.2.3