improve an error message from the expander

Mostly, fix "compiled" versus "expanded" in an error message,
but this variant of the message copied from the new expander
implementation seems better overall.
This commit is contained in:
Matthew Flatt 2017-10-16 09:31:07 -06:00
parent 2454fd6931
commit d64961cdba

View File

@ -7654,7 +7654,7 @@ static Scheme_Object *do_module(Scheme_Object *form, Scheme_Comp_Env *env,
/* result should be a module body value: */
if (!SAME_OBJ(fm, (Scheme_Object *)m)) {
scheme_wrong_syntax(NULL, NULL, form, "compiled body was not built with #%%module-begin");
scheme_wrong_syntax(NULL, NULL, form, "expansion of #%%module-begin is not a #%%plain-module-begin form");
}
if (restore_confusing_name)