From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Tue, 26 Oct 1993 02:59:34 +0000 (+0000)
Subject: Fix interpreter-environment-register? which had not been updated to
X-Git-Tag: 20090517-FFI~7701
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fcc88c549a96557a61d92175dc75c4da5bab3ce5;p=mit-scheme.git

Fix interpreter-environment-register? which had not been updated to
use the new rtl format.
---

diff --git a/v7/src/compiler/machines/C/machin.scm b/v7/src/compiler/machines/C/machin.scm
index 408dc96b1..ed500ce25 100644
--- a/v7/src/compiler/machines/C/machin.scm
+++ b/v7/src/compiler/machines/C/machin.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: machin.scm,v 1.3 1993/06/29 22:28:16 gjr Exp $
+$Id: machin.scm,v 1.4 1993/10/26 02:59:34 gjr Exp $
 
 Copyright (c) 1992-1993 Massachusetts Institute of Technology
 
@@ -220,7 +220,9 @@ MIT in each case. |#
 (define (interpreter-environment-register? expression)
   (and (rtl:offset? expression)
        (interpreter-regs-pointer? (rtl:offset-base expression))
-       (= register-block/environment-offset (rtl:offset-number expression))))
+       (let ((offset (rtl:offset-offset expression)))
+	 (and (rtl:machine-constant? offset)
+	      (= 3 (rtl:machine-constant-value offset))))))
 
 (define-integrable (interpreter-register:access)
   (interpreter-value-register))