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

fix method vs. procedure arity error reporting from JITted callbacks

Browse Source 
svn: r12179
This commit is contained in:
Matthew Flatt 2008-10-30 19:04:08 +00:00
parent fc64cf2b77
commit eada4a5b7e
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/mzscheme/src/schapp.inc
View File

@ -38,7 +38,8 @@
#if PRIM_CHECK_ARITY
if (argc < prim->p.mina || (argc > prim->p.mu.maxa && prim->p.mina >= 0)) {
scheme_wrong_count(prim->p.name, prim->p.mina, prim->p.mu.maxa, argc, argv);
scheme_wrong_count_m(prim->p.name, prim->p.mina, prim->p.mu.maxa, argc, argv,
prim->p.pp.flags & SCHEME_PRIM_IS_METHOD);
return NULL; /* Shouldn't get here */
}
#endif

3
src/mzscheme/src/schnapp.inc
View File

@ -17,7 +17,8 @@ static MZ_INLINE Scheme_Object *PRIM_APPLY_NAME_FAST(Scheme_Object *rator,
prim = (Scheme_Primitive_Proc *)rator;
if (argc < prim->mina || (argc > prim->mu.maxa && prim->mina >= 0)) {
scheme_wrong_count(prim->name, prim->mina, prim->mu.maxa, argc, argv);
scheme_wrong_count_m(prim->name, prim->mina, prim->mu.maxa, argc, argv,
prim->pp.flags & SCHEME_PRIM_IS_METHOD);
return NULL; /* Shouldn't get here */
}