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

save arena

This commit is contained in:
Yuichi Nishiwaki 2015-06-28 04:47:41 +09:00
parent 0762bd6567
commit 5138ab4a8c
1 changed files with 4 additions and 1 deletions
extlib/benz
read.c

5
extlib/benz/read.c
View File

@ -855,6 +855,7 @@ pic_reader_destroy(pic_state *pic)
pic_value pic_value
pic_read(pic_state *pic, struct pic_port *port) pic_read(pic_state *pic, struct pic_port *port)
{ {
size_t ai = pic_gc_arena_preserve(pic);
pic_value val; pic_value val;
int c = next(pic, port); int c = next(pic, port);
@ -869,10 +870,12 @@ pic_read(pic_state *pic, struct pic_port *port)
if (pic_invalid_p(val)) { if (pic_invalid_p(val)) {
c = next(pic, port); c = next(pic, port);
pic_gc_arena_restore(pic, ai);
goto retry; goto retry;
} }
return val; pic_gc_arena_restore(pic, ai);
return pic_gc_protect(pic, val);
} }
pic_value pic_value