From: Jim Miller <edu/mit/csail/zurich/jmiller>
Date: Sat, 26 Nov 1994 00:24:08 +0000 (+0000)
Subject: Calls to *make-environment now declare the correct number of
X-Git-Tag: 20090517-FFI~6958
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=973a9094e0bc2c1167091f9b16f13b9604776920;p=mit-scheme.git

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 6e6252ead..092837af9 100644
--- 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