From b64cdd67249c6367a967af8c317ecd571a35bd40 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Wed, 6 Aug 2014 14:58:23 +0900
Subject: [PATCH] remove redundant code

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

diff --git a/src/write.c b/src/write.c
index bd13ac44..0d558f35 100644
--- a/src/write.c
+++ b/src/write.c
@@ -271,12 +271,6 @@ write_core(struct writer_control *p, pic_value obj)
   case PIC_TT_UNDEF:
     xfprintf(file, "#<undef>");
     break;
-  case PIC_TT_PROC:
-    xfprintf(file, "#<proc %p>", pic_ptr(obj));
-    break;
-  case PIC_TT_PORT:
-    xfprintf(file, "#<port %p>", pic_ptr(obj));
-    break;
   case PIC_TT_STRING:
     if (p->mode == DISPLAY_MODE) {
       xfprintf(file, "%s", pic_str_cstr(pic_str_ptr(obj)));