From eada4a5b7e0cb289006225f4d8cc58aa31766343 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 30 Oct 2008 19:04:08 +0000 Subject: [PATCH] fix method vs. procedure arity error reporting from JITted callbacks svn: r12179 --- src/mzscheme/src/schapp.inc | 3 ++- src/mzscheme/src/schnapp.inc | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/src/mzscheme/src/schapp.inc b/src/mzscheme/src/schapp.inc index 5177486a3e..a4280ba274 100644 --- a/src/mzscheme/src/schapp.inc +++ b/src/mzscheme/src/schapp.inc @@ -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 diff --git a/src/mzscheme/src/schnapp.inc b/src/mzscheme/src/schnapp.inc index cb8f5a65b9..50baa5bd18 100644 --- a/src/mzscheme/src/schnapp.inc +++ b/src/mzscheme/src/schnapp.inc @@ -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 */ }