insert renamer pass after old macroexpansion phase
This commit is contained in:
parent
1ad562f1a8
commit
ad3c268f81
|
@ -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;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue