perl: Remove _nil_Q(), _true_Q(), and _false_Q().

[jackhill/mal.git] / chuck / printer.ck

diff --git a/chuck/printer.ck b/chuck/printer.ck
index 15afeb1..6895609 100644 (file)
--- a/chuck/printer.ck
+++ b/chuck/printer.ck
@@ -36,6 +36,14 @@ public class Printer
         {
             return "(atom " + pr_str((m$MalAtom).value(), print_readably) + ")";
         }
+        else if( type == "subr" )
+        {
+            return "#<Subr>";
+        }
+        else if( type == "func" )
+        {
+            return "#<Func>";
+        }
         else if( type == "list" )
         {
             return pr_list((m$MalList).value(), print_readably, "(", ")");
@@ -48,6 +56,10 @@ public class Printer
         {
             return pr_list((m$MalHashMap).value(), print_readably, "{", "}");
         }
+        else
+        {
+            return "Unknown type";
+        }
     }
 
     fun static string pr_list(MalObject m[], int print_readably, string start, string end)