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

fix #56. thank you @justinethier

This commit is contained in:
Yuichi Nishiwaki 2014-02-20 11:58:27 +09:00
parent fc2fc04886
commit 16639a1764
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/macro.c
View File

@ -800,7 +800,7 @@ static pic_value
ir_macro_compare(pic_state *pic) ir_macro_compare(pic_state *pic)
{ {
pic_value a, b; pic_value a, b;
struct pic_senv *use_env; struct pic_senv *mac_env;
pic_sym m, n; pic_sym m, n;
pic_get_args(pic, "oo", &a, &b); pic_get_args(pic, "oo", &a, &b);
@ -808,10 +808,10 @@ ir_macro_compare(pic_state *pic)
if (! pic_sym_p(a) || ! pic_sym_p(b)) if (! pic_sym_p(a) || ! pic_sym_p(b))
return pic_false_value(); /* should be an error? */ return pic_false_value(); /* should be an error? */
use_env = pic_senv_ptr(pic_proc_cv_ref(pic, pic_get_proc(pic), 0)); mac_env = pic_senv_ptr(pic_proc_cv_ref(pic, pic_get_proc(pic), 1));
m = symbol_rename(pic, pic_sym(a), use_env); m = symbol_rename(pic, pic_sym(a), mac_env);
n = symbol_rename(pic, pic_sym(b), use_env); n = symbol_rename(pic, pic_sym(b), mac_env);
return pic_bool_value(m == n); return pic_bool_value(m == n);
} }