remove redundant code
This commit is contained in:
parent
b0c9c468c0
commit
b64cdd6724
|
@ -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)));
|
||||
|
|
Loading…
Reference in New Issue