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

use #, reader literal to write eof-object

This commit is contained in:
Yuichi Nishiwaki 2014-08-06 15:02:19 +09:00
parent b64cdd6724
commit 312914fa0d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/write.c
View File

@ -198,6 +198,9 @@ write_core(struct writer_control *p, pic_value obj)
} }
switch (pic_type(obj)) { switch (pic_type(obj)) {
case PIC_TT_UNDEF:
xfprintf(file, "#<undef>");
break;
case PIC_TT_NIL: case PIC_TT_NIL:
xfprintf(file, "()"); xfprintf(file, "()");
break; break;
@ -266,10 +269,7 @@ write_core(struct writer_control *p, pic_value obj)
xfprintf(file, "%d", pic_int(obj)); xfprintf(file, "%d", pic_int(obj));
break; break;
case PIC_TT_EOF: case PIC_TT_EOF:
xfprintf(file, "#<eof-object>"); xfprintf(file, "#,(eof-object)");
break;
case PIC_TT_UNDEF:
xfprintf(file, "#<undef>");
break; break;
case PIC_TT_STRING: case PIC_TT_STRING:
if (p->mode == DISPLAY_MODE) { if (p->mode == DISPLAY_MODE) {