insert renamer pass after old macroexpansion phase

This commit is contained in:
Yuichi Nishiwaki 2013-11-26 04:08:46 -08:00
parent 1ad562f1a8
commit ad3c268f81
1 changed files with 8 additions and 0 deletions

View File

@ -171,6 +171,8 @@ expand(pic_state *pic, pic_value obj, struct syntactic_env *env)
abort(); abort();
} }
pic_value pic_macroexpand_2(pic_state *, pic_value);
pic_value pic_value
pic_macroexpand(pic_state *pic, pic_value obj) pic_macroexpand(pic_state *pic, pic_value obj)
{ {
@ -193,6 +195,12 @@ pic_macroexpand(pic_state *pic, pic_value obj)
puts(""); puts("");
#endif #endif
v = pic_macroexpand_2(pic, v);
#if DEBUG
puts("after expand:");
pic_debug(pic, v);
puts("");
#endif
return v; return v;
} }