error-message repair
This commit is contained in:
parent
50ca12201d
commit
da191e5058
|
@ -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);
|
||||
|
|
Loading…
Reference in New Issue
Block a user