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

cleanup

This commit is contained in:
Yuichi Nishiwaki 2014-03-29 09:04:14 +09:00
parent 0b58624864
commit 7b73b37bec
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

@ -826,10 +826,10 @@ static pic_value
ir_macro_wrap(pic_state *pic, pic_value expr, struct pic_senv *use_env, pic_value *assoc) ir_macro_wrap(pic_state *pic, pic_value expr, struct pic_senv *use_env, pic_value *assoc)
{ {
if (pic_sym_p(expr)) { if (pic_sym_p(expr)) {
pic_value ren; pic_value r;
ren = pic_sym_value(symbol_rename(pic, pic_sym(expr), use_env)); r = pic_sym_value(symbol_rename(pic, pic_sym(expr), use_env));
*assoc = pic_acons(pic, ren, expr, *assoc); *assoc = pic_acons(pic, r, expr, *assoc);
return ren; return r;
} }
else if (pic_pair_p(expr)) { else if (pic_pair_p(expr)) {
return pic_cons(pic, return pic_cons(pic,