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

bugfixes

Browse Source
This commit is contained in:
Yuichi Nishiwaki
2016-02-07 04:54:55 +09:00
parent 0d29322b64
commit ed14348c08
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
extlib/benz/eval.c
+4 -4
View File
@@ -889,18 +889,18 @@ pic_compile(pic_state *pic, pic_value obj)
pic_value
pic_eval(pic_state *pic, pic_value program, struct pic_lib *lib)
{
struct pic_lib *prev_lib = pic->lib;
pic_value r;
pic->lib = lib;
pic_try {
pic->prev_lib = pic->lib;
pic->lib = lib;
r = pic_apply0(pic, pic_compile(pic, pic_expand(pic, program, lib->env)));
}
pic_catch {
pic->lib = pic->prev_lib;
pic->lib = prev_lib;
pic_raise(pic, pic->err);
}
pic->lib = prev_lib;
return r;
}