suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix error message

Browse Source
This commit is contained in:
Robby Findler 2014-02-14 10:34:17 -06:00
parent fff72a21ff
commit 2e06761531
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/racket/src/list.c
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)) if (!scheme_check_proc_arity(NULL, 3, 1, 2, vals))
scheme_raise_exn(MZEXN_FAIL_CONTRACT, scheme_raise_exn(MZEXN_FAIL_CONTRACT,
"%s: chaperone produced a second value that does not match the expected contract\n" "%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", " received: %V",
who, who,
red); red);