remove redundant code

2014-08-06 14:58:23 +09:00
parent b0c9c468c0
commit b64cdd6724
1 changed files with 0 additions and 6 deletions
@@ -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)));