conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

refactor write

This commit is contained in:
Yuichi Nishiwaki 2014-07-27 11:10:59 +09:00
parent 1f98f2ab4e
commit 300f87d569
1 changed files with 2 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
src/write.c
View File

@ -313,39 +313,8 @@ write_core(struct writer_control *p, pic_value obj)
}
xfprintf(file, ")");
break;
case PIC_TT_ERROR:
xfprintf(file, "#<error %p>", pic_ptr(obj));
break;
case PIC_TT_ENV:
xfprintf(file, "#<env %p>", pic_ptr(obj));
break;
case PIC_TT_CONT:
xfprintf(file, "#<cont %p>", pic_ptr(obj));
break;
case PIC_TT_SENV:
xfprintf(file, "#<senv %p>", pic_ptr(obj));
break;
case PIC_TT_MACRO:
xfprintf(file, "#<macro %p>", pic_ptr(obj));
break;
case PIC_TT_LIB:
xfprintf(file, "#<lib %p>", pic_ptr(obj));
break;
case PIC_TT_VAR:
xfprintf(file, "#<var %p>", pic_ptr(obj));
break;
case PIC_TT_IREP:
xfprintf(file, "#<irep %p>", pic_ptr(obj));
break;
case PIC_TT_DATA:
xfprintf(file, "#<data %p>", pic_ptr(obj));
break;
case PIC_TT_DICT:
xfprintf(file, "#<dict %p>", pic_ptr(obj));
break;
case PIC_TT_BLK:
xfprintf(file, "#<blk %p>", pic_ptr(obj));
break;
default:
xfprintf(file, "#<%s %p>", pic_type_repr(pic_type(obj)), pic_ptr(obj));
}
}