insert renamer pass after old macroexpansion phase

2013-11-26 04:08:46 -08:00
parent 1ad562f1a8
commit ad3c268f81
1 changed files with 8 additions and 0 deletions
@@ -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;
 }