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:
Matthew Flatt 2017-05-23 08:16:34 -06:00
parent 8f6ec91fb1
commit f27be30c15
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
racket/src/racket/src/fun.c
View File

@ -3862,15 +3862,14 @@ Scheme_Object *extract_impersonator_results(int c, int argc, Scheme_Object **arg
scheme_raise_exn(MZEXN_FAIL_CONTRACT,
"procedure %s: wrapper's %s result is not valid;\n"
" %s extra result (before original argument count) should be\n"
" 'mark%s'parameter%s\n"
" 'mark%s\n"
" original: %V\n"
" wrapper: %V\n"
" received: %V",
what,
nth,
nth,
(i ? " or " : ", "),
(i ? "" : ", or a wrapper for the original procedure's result"),
(i ? "" : " or a wrapper for the original procedure's result"),
o,
SCHEME_VEC_ELS(px->redirects)[0],
argv2[i]);