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

error-message repair

Browse Source
This commit is contained in:
Matthew Flatt 2012-06-24 22:29:01 -06:00
parent c11527494e
commit 4cd1560b2b
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/racket/src/eval.c
View File

@ -1949,8 +1949,8 @@ define_execute_with_dynamic_state(Scheme_Object *vec, int delta, int defmacro,
: "define-values"), : "define-values"),
i, g, i, g,
(g == 1) ? (Scheme_Object **)vals : scheme_current_thread->ku.multiple.array, (g == 1) ? (Scheme_Object **)vals : scheme_current_thread->ku.multiple.array,
"%s%s%s", "\n in: %s%s%s",
show_any ? "\n defining: " : "0 names", show_any ? "definition of " : "definition of 0 identifiers",
symname, symname,
show_any ? ((i == 1) ? "" : " ...") : ""); show_any ? ((i == 1) ? "" : " ...") : "");
} }
@ -3383,7 +3383,7 @@ scheme_do_eval(Scheme_Object *obj, int num_rands, Scheme_Object **rands,
if (c2 != c) { if (c2 != c) {
scheme_wrong_return_arity(NULL, c, c2, scheme_wrong_return_arity(NULL, c, c2,
(c2 == 1) ? (Scheme_Object **)value : p->ku.multiple.array, (c2 == 1) ? (Scheme_Object **)value : p->ku.multiple.array,
"lexical binding"); "\n in: local-binding form");
return NULL; return NULL;
} }