better error message for bad command-line argument

This commit is contained in:
Matthew Flatt 2011-04-18 17:47:29 -06:00
parent 49c73d767b
commit 2032ec910f

View File

@ -308,6 +308,11 @@ static int finish_cmd_line_run(FinishArgs *fa, Repl_Proc repl)
a[0] = scheme_make_pair(scheme_intern_symbol(name), a[0] = scheme_make_pair(scheme_intern_symbol(name),
scheme_make_pair(scheme_make_utf8_string(fa->evals_and_loads[i]), scheme_make_pair(scheme_make_utf8_string(fa->evals_and_loads[i]),
scheme_make_null())); scheme_make_null()));
if (!scheme_is_module_path(a[0])) {
scheme_signal_error("require: bad module path: %V derived from command-line argument: %s",
a[0],
fa->evals_and_loads[i]);
}
if (!did_config) if (!did_config)
configure_environment(a[0]); configure_environment(a[0]);
scheme_apply(nsreq, 1, a); scheme_apply(nsreq, 1, a);