fix error message
This commit is contained in:
parent
fff72a21ff
commit
2e06761531
|
@ -3131,7 +3131,7 @@ static Scheme_Object *chaperone_hash_op(const char *who, Scheme_Object *o, Schem
|
|||
if (!scheme_check_proc_arity(NULL, 3, 1, 2, vals))
|
||||
scheme_raise_exn(MZEXN_FAIL_CONTRACT,
|
||||
"%s: chaperone produced a second value that does not match the expected contract\n"
|
||||
" expected: (procedure-arity-includes/c 2)\n"
|
||||
" expected: (procedure-arity-includes/c 3)\n"
|
||||
" received: %V",
|
||||
who,
|
||||
red);
|
||||
|
|
Loading…
Reference in New Issue
Block a user