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

revise output format of syntactic closure object

This commit is contained in:
Yuichi Nishiwaki 2013-11-27 15:56:29 +09:00
parent ceedd05ef0
commit bedc5dc6be
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/port.c
View File

@ -5,6 +5,7 @@
#include "picrin/proc.h" #include "picrin/proc.h"
#include "picrin/port.h" #include "picrin/port.h"
#include "picrin/blob.h" #include "picrin/blob.h"
#include "picrin/macro.h"
static void write_pair(pic_state *pic, struct pic_pair *pair); static void write_pair(pic_state *pic, struct pic_pair *pair);
static void write_str(pic_state *pic, struct pic_string *str); static void write_str(pic_state *pic, struct pic_string *str);
@ -104,7 +105,9 @@ write(pic_state *pic, pic_value obj)
printf("#<senv %p>", pic_ptr(obj)); printf("#<senv %p>", pic_ptr(obj));
break; break;
case PIC_TT_SC: case PIC_TT_SC:
printf("#<sc %p>", pic_ptr(obj)); printf("#<sc %p: ", pic_ptr(obj));
write(pic, pic_sc(obj)->expr);
printf(">");
break; break;
} }
} }