From 973a9094e0bc2c1167091f9b16f13b9604776920 Mon Sep 17 00:00:00 2001 From: Jim Miller Date: Sat, 26 Nov 1994 00:24:08 +0000 Subject: [PATCH] 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. --- v8/src/compiler/midend/compat.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.25.1