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

don't use user printer for records in debug mode

This commit is contained in:
Yuichi Nishiwaki 2014-08-06 22:15:49 +09:00
parent 8a5a3e6b97
commit 448e3caeaa
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/write.c
View File

@ -180,6 +180,12 @@ write_record(pic_state *pic, struct pic_record *rec, xFILE *file)
const pic_sym sWRITER = pic_intern_cstr(pic, "writer"); const pic_sym sWRITER = pic_intern_cstr(pic, "writer");
pic_value type, writer, str; pic_value type, writer, str;
#if DEBUG
xfprintf(file, "#<record %p>", rec);
#else
type = pic_record_type(pic, rec); type = pic_record_type(pic, rec);
if (! pic_record_p(type)) { if (! pic_record_p(type)) {
pic_errorf(pic, "\"@@type\" property of record object is not of record type"); pic_errorf(pic, "\"@@type\" property of record object is not of record type");
@ -193,6 +199,8 @@ write_record(pic_state *pic, struct pic_record *rec, xFILE *file)
pic_errorf(pic, "return value from writer procedure is not of string type"); pic_errorf(pic, "return value from writer procedure is not of string type");
} }
xfprintf(file, "%s", pic_str_cstr(pic_str_ptr(str))); xfprintf(file, "%s", pic_str_cstr(pic_str_ptr(str)));
#endif
} }
static void static void