Merge branch 'master' of git://github.com/wasabiz/picrin into srfi1

This commit is contained in:
stibear 2014-02-11 22:54:40 +09:00
commit bb7a6a20f4
1 changed files with 2 additions and 0 deletions

View File

@ -318,6 +318,7 @@ macroexpand(pic_state *pic, pic_value expr, struct pic_senv *senv)
/* proceed expressions in new library */
pic_in_library(pic, pic_cadr(pic, expr));
{
int ai = pic_gc_arena_preserve(pic);
struct pic_proc *proc;
pic_for_each (v, pic_cddr(pic, expr)) {
@ -329,6 +330,7 @@ macroexpand(pic_state *pic, pic_value expr, struct pic_senv *senv)
if (pic_undef_p(v)) {
abort();
}
pic_gc_arena_restore(pic, ai);
}
}
pic_in_library(pic, prev->name);