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:
|
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)));
|
||||||
|
|
Loading…
Reference in New Issue