From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 24 Aug 1992 17:39:23 +0000 (+0000)
Subject: CREF doesn't like ACCESS to non-global environment.  Work around by
X-Git-Tag: 20090517-FFI~9077
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fd31b988a02c95874ba12111e46f829a1b8d938a;p=mit-scheme.git

CREF doesn't like ACCESS to non-global environment.  Work around by
using ENVIRONMENT-LOOKUP.
---

diff --git a/v7/src/sf/butils.scm b/v7/src/sf/butils.scm
index bb32327ea..7786a0a00 100644
--- a/v7/src/sf/butils.scm
+++ b/v7/src/sf/butils.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/butils.scm,v 4.6 1992/08/22 15:03:25 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/sf/butils.scm,v 4.7 1992/08/24 17:39:23 cph Exp $
 
-Copyright (c) 1988-1992 Massachusetts Institute of Technology
+Copyright (c) 1988-92 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -75,8 +75,8 @@ MIT in each case. |#
 (define compile-directory
   (directory-processor "bin"
 		       (lambda ()
-			 (if (access compiler:cross-compiling?
-				     (->environment '(compiler)))
+			 (if (environment-lookup (->environment '(compiler))
+						 'compiler:cross-compiling?)
 			     "moc"
 			     "com"))
 		       (lambda (pathname output-directory)