error-message repair

This commit is contained in:
Matthew Flatt 2012-05-29 13:16:49 -06:00
parent 50ca12201d
commit da191e5058

View File

@ -1186,7 +1186,7 @@ static Scheme_Object *_dynamic_require(int argc, Scheme_Object *argv[],
if (fail_thunk)
return scheme_tail_apply(fail_thunk, 0, NULL);
scheme_contract_error(errname,
"name is not provided"
"name is not provided",
"name", 1, name,
"module", 1, srcm->modsrc,
NULL);