Use the argument count, not the operand count (which includes the

continuation), when reporting arity mismatch warnings.

diff --git a/v7/src/compiler/fgopt/simapp.scm b/v7/src/compiler/fgopt/simapp.scm
index 4f5ed8fa9d2317b8c6ecc497f4eced7b1f3f4f42..4da2f76c9baf16e620cab512ecda3ab6b52b4e49 100644 (file)
--- a/v7/src/compiler/fgopt/simapp.scm
+++ b/v7/src/compiler/fgopt/simapp.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: simapp.scm,v 4.16 2008/01/30 20:01:45 cph Exp $
+$Id: simapp.scm,v 4.17 2009/04/15 19:19:40 riastradh Exp $
 
 Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
     1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
@@ -117,7 +117,7 @@ USA.
                             true)))
                     (warn "Procedure called with wrong number of arguments"
                           value
-                          number-supplied))))
+                          argument-count))))
              #|
              (else
               (warn "Possible inapplicable operator" operator))