From 22414b61e8cbcb3b97cc03bf58a3badea8c992bc Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Mon, 14 Oct 2013 17:35:01 +0900
Subject: [PATCH] let the printer output proc objects and unknown values

---
 src/write.c | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/write.c b/src/write.c
index c0705711..5a4b2c56 100644
--- a/src/write.c
+++ b/src/write.c
@@ -26,5 +26,11 @@ pic_debug(pic_state *pic, pic_value obj)
   case PIC_TT_UNDEF:
     printf("#<undef>");
     break;
+  case PIC_TT_PROC:
+    printf("#<proc %p>", pic_proc_ptr(obj));
+    break;
+  default:
+    printf("#<unknown type>");
+    break;
   }
 }