From ad3c268f81e5379cdf56367eec198706688de5cf Mon Sep 17 00:00:00 2001
From: Yuichi Nishiwaki <yuichi.nishiwaki@gmail.com>
Date: Tue, 26 Nov 2013 04:08:46 -0800
Subject: [PATCH] insert renamer pass after old macroexpansion phase

---
 src/macro.c | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/macro.c b/src/macro.c
index 05bb585d..8f769d64 100644
--- a/src/macro.c
+++ b/src/macro.c
@@ -171,6 +171,8 @@ expand(pic_state *pic, pic_value obj, struct syntactic_env *env)
   abort();
 }
 
+pic_value pic_macroexpand_2(pic_state *, pic_value);
+
 pic_value
 pic_macroexpand(pic_state *pic, pic_value obj)
 {
@@ -193,6 +195,12 @@ pic_macroexpand(pic_state *pic, pic_value obj)
   puts("");
 #endif
 
+  v = pic_macroexpand_2(pic, v);
+#if DEBUG
+  puts("after expand:");
+  pic_debug(pic, v);
+  puts("");
+#endif
   return v;
 }