From 7b73b37bec56ab74b1b6dc3a03b70701d9018329 Mon Sep 17 00:00:00 2001 From: Yuichi Nishiwaki Date: Sat, 29 Mar 2014 09:04:14 +0900 Subject: [PATCH] cleanup --- src/macro.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/macro.c b/src/macro.c index a0f5721c..7a5bbe83 100644 --- a/src/macro.c +++ b/src/macro.c @@ -826,10 +826,10 @@ static pic_value ir_macro_wrap(pic_state *pic, pic_value expr, struct pic_senv *use_env, pic_value *assoc) { if (pic_sym_p(expr)) { - pic_value ren; - ren = pic_sym_value(symbol_rename(pic, pic_sym(expr), use_env)); - *assoc = pic_acons(pic, ren, expr, *assoc); - return ren; + pic_value r; + r = pic_sym_value(symbol_rename(pic, pic_sym(expr), use_env)); + *assoc = pic_acons(pic, r, expr, *assoc); + return r; } else if (pic_pair_p(expr)) { return pic_cons(pic,