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

use read-time eval literals for eof-object and dictionries

This commit is contained in:
Yuichi Nishiwaki 2014-08-06 15:53:29 +09:00
parent d62727bef9
commit a4a2bde6ba
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/write.c
View File

@ -270,7 +270,7 @@ write_core(struct writer_control *p, pic_value obj)
xfprintf(file, "%d", pic_int(obj));
break;
case PIC_TT_EOF:
xfprintf(file, "#,(eof-object)");
xfprintf(file, "#.(eof-object)");
break;
case PIC_TT_STRING:
if (p->mode == DISPLAY_MODE) {
@ -302,7 +302,7 @@ write_core(struct writer_control *p, pic_value obj)
xfprintf(file, ")");
break;
case PIC_TT_DICT:
xfprintf(file, "#,(dictionary");
xfprintf(file, "#.(dictionary");
xh_begin(&it, &pic_dict_ptr(obj)->hash);
while (xh_next(&it)) {
xfprintf(file, " '%s ", pic_symbol_name(pic, xh_key(it.e, pic_sym)));