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

2014-02-11 22:54:40 +09:00
parent 95561ba3e8 5be10aefc9
commit bb7a6a20f4
1 changed files with 2 additions and 0 deletions
@@ -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);