remove redundant code

This commit is contained in:
Yuichi Nishiwaki 2014-08-06 14:58:23 +09:00
parent b0c9c468c0
commit b64cdd6724
1 changed files with 0 additions and 6 deletions

View File

@ -271,12 +271,6 @@ write_core(struct writer_control *p, pic_value obj)
case PIC_TT_UNDEF: case PIC_TT_UNDEF:
xfprintf(file, "#<undef>"); xfprintf(file, "#<undef>");
break; 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: case PIC_TT_STRING:
if (p->mode == DISPLAY_MODE) { if (p->mode == DISPLAY_MODE) {
xfprintf(file, "%s", pic_str_cstr(pic_str_ptr(obj))); xfprintf(file, "%s", pic_str_cstr(pic_str_ptr(obj)));