From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Mon, 30 Jan 1995 21:45:40 +0000 (+0000)
Subject: Defined RTLGEN/CLOSURE-ADJUSTMENT to be determined by the back end,
X-Git-Tag: 20090517-FFI~6688
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=5754013dbdb5eab11a6f06bdc0936bdf731a441b;p=mit-scheme.git

Defined RTLGEN/CLOSURE-ADJUSTMENT to be determined by the back end,
i.e.  (closure-environment-adjustment 1 0)
---

diff --git a/v8/src/compiler/midend/rtlgen.scm b/v8/src/compiler/midend/rtlgen.scm
index f0e73e029..19bf7058b 100644
--- a/v8/src/compiler/midend/rtlgen.scm
+++ b/v8/src/compiler/midend/rtlgen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rtlgen.scm,v 1.11 1995/01/30 03:07:56 adams Exp $
+$Id: rtlgen.scm,v 1.12 1995/01/30 21:45:40 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -972,7 +972,7 @@ MIT in each case. |#
   (machine/cont-adjustment))
 
 (define (rtlgen/closure-adjustment)
-  0)
+  (closure-environment-adjustment 1 0))
 
 (define-integrable rtlgen/chars-per-object
   (quotient address-units-per-object address-units-per-packed-char))