Fix a bug in "local lexprs". The arity encoding must include the

procedure object, even if it is only a virtual procedure object.

diff --git a/v7/src/compiler/rtlgen/rgrval.scm b/v7/src/compiler/rtlgen/rgrval.scm
index 2e4c42b3c04834f7e9d083c70d8e52989166f34a..4afe232aba3fe83a32e49cf4e28d468aee27738d 100644 (file)
--- a/v7/src/compiler/rtlgen/rgrval.scm
+++ b/v7/src/compiler/rtlgen/rgrval.scm
@@ -1,9 +1,9 @@
 d3 1
 a4 1
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgrval.scm,v 4.5 1988/04/15 02:04:18 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgrval.scm,v 4.6 1988/04/21 06:58:23 jinx Exp $
 #| -*-Scheme-*-
 Copyright (c) 1987 Massachusetts Institute of Technology
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgrval.scm,v 4.5 1988/04/15 02:04:18 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlgen/rgrval.scm,v 4.6 1988/04/21 06:58:23 jinx Exp $
 
 Copyright (c) 1988, 1990 Massachusetts Institute of Technology
 
@@ -284,9 +284,7 @@ promotional, or sales literature without prior written consent from
       (procedure-closure-size procedure)))))
 
 (define (with-procedure-arity-encoding procedure receiver)
-  (let* ((min
-         (+ (if (procedure/closure? procedure) 1 0)
-            (length (procedure-required-arguments procedure))))
+  (let* ((min (1+ (length (procedure-required-arguments procedure))))
         (max (+ min (length (procedure-optional procedure)))))
     (receiver min
              (if (procedure-rest procedure)