From: Taylor R. Campbell <net/mumble/campbell>
Date: Tue, 3 Feb 2009 03:33:44 +0000 (+0000)
Subject: When signalling an error for primitive invocations with incorrect
X-Git-Tag: 20090517-FFI~75
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ce56db88f9d9954aae4890da0f8879cf026a2cae;p=mit-scheme.git

When signalling an error for primitive invocations with incorrect
numbers of arguments, omit the arity from the irritants, since we no
longer have it.
---

diff --git a/v7/src/compiler/rtlgen/rgcomb.scm b/v7/src/compiler/rtlgen/rgcomb.scm
index 7400b993b..cdcfe194e 100644
--- a/v7/src/compiler/rtlgen/rgcomb.scm
+++ b/v7/src/compiler/rtlgen/rgcomb.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rgcomb.scm,v 4.27 2009/02/02 16:02:17 riastradh Exp $
+$Id: rgcomb.scm,v 4.28 2009/02/03 03:33:44 riastradh Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -161,7 +161,6 @@ USA.
      (if (not (primitive-arity-correct? primitive frame-size))
 	 (error "Primitive called with incorrect number of arguments."
 		primitive
-		arity
 		frame-size))
      ((or (special-primitive-handler primitive)
 	  rtl:make-invocation:primitive)