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

This didn't appropriately adjust for is_method.

Browse Source 
svn: r18499
This commit is contained in:
Stevie Strickland 2010-03-10 01:10:13 +00:00
parent 0982626a67
commit b917d99ce0
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/mzscheme/src/error.c
View File

@ -1006,7 +1006,8 @@ static char *make_arity_expect_string(const char *name, int namelen,
Scheme_Object *arity;
arity = scheme_arity((Scheme_Object *)name);
if (SCHEME_INTP(arity)) {
xminc = xmaxc = minc = maxc = SCHEME_INT_VAL(arity);
minc = maxc = SCHEME_INT_VAL(arity);
xmaxc = xminc = minc - (is_method ? 1 : 0);
name = scheme_get_proc_name((Scheme_Object *)name, &namelen, 1);
if (!name) {
name = "#<procedure>";