From 464ecdd4527a303077b2d308b725d45e973352b6 Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Sat, 29 Mar 2014 08:52:59 +0900
Subject: [PATCH] call symbol_rename as much as possible

---
 src/macro.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/macro.c b/src/macro.c
index 5db52872..cc3b202c 100644
--- a/src/macro.c
+++ b/src/macro.c
@@ -831,7 +831,7 @@ ir_macro_wrap(pic_state *pic, pic_value expr, struct pic_senv *use_env, pic_valu
 {
   if (pic_sym_p(expr)) {
     pic_value ren;
-    ren = macroexpand(pic, expr, use_env);
+    ren = pic_sym_value(symbol_rename(pic, pic_sym(expr), use_env));
     *assoc = pic_acons(pic, ren, expr, *assoc);
     return ren;
   }