fix error message

This commit is contained in:
Robby Findler 2014-02-14 10:34:17 -06:00
parent fff72a21ff
commit 2e06761531

View File

@ -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);