Calls to *make-environment now declare the correct number of

arguments, rather than let rtlgen compute it.
This is necessary because some may be passed on the stack,
not easily visible to rtlgen.

diff --git a/v8/src/compiler/midend/compat.scm b/v8/src/compiler/midend/compat.scm
index 6e6252ead0d523e0e3be54ce15b7eddda3efe93f..092837af909c5045900bd34633d17a58ead50e3f 100644 (file)
--- a/v8/src/compiler/midend/compat.scm
+++ b/v8/src/compiler/midend/compat.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: compat.scm,v 1.3 1994/11/22 19:48:54 gjr Exp $
+$Id: compat.scm,v 1.4 1994/11/26 00:24:08 jmiller Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -676,7 +676,7 @@ MIT in each case. |#
     (define-rewrite/compat rator
       (lambda (env rator cont rands)
        rator                           ; ignored
-       (let ((desc (list name arity)))
+       (let ((desc (list name (or arity (length rands)))))
          ;; This way ensures it works with very small numbers of
          ;; argument registers:
          (compat/rewrite-call env