From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 16 Aug 2001 19:09:28 +0000 (+0000)
Subject: Don't use ACCESS to reference CREF/GENERATE-TRIVIAL-CONSTRUCTOR.  It's
X-Git-Tag: 20090517-FFI~2599
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a18bed0bd7a134ba4a949fc89f9511a500998703;p=mit-scheme.git

Don't use ACCESS to reference CREF/GENERATE-TRIVIAL-CONSTRUCTOR.  It's
now exported to the global environment.
---

diff --git a/v7/src/compiler/machines/i386/compiler.sf b/v7/src/compiler/machines/i386/compiler.sf
index 0ec0cb9e5..6a5883a78 100644
--- a/v7/src/compiler/machines/i386/compiler.sf
+++ b/v7/src/compiler/machines/i386/compiler.sf
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: compiler.sf,v 1.11 2001/08/15 03:09:53 cph Exp $
+$Id: compiler.sf,v 1.12 2001/08/16 19:09:28 cph Exp $
 
 Copyright (c) 1992-2001 Massachusetts Institute of Technology
 
@@ -29,9 +29,7 @@ USA.
     (begin
       ;; If there is no existing package constructor, generate one.
       (if (not (file-exists? "compiler.pkd"))
-	  ((access cref/generate-trivial-constructor
-		   (->environment '(CROSS-REFERENCE)))
-	   "compiler"))
+	  (cref/generate-trivial-constructor "compiler"))
       (construct-packages-from-file (fasload "compiler.pkd"))))
 
 ;; Guarantee that the necessary syntactic transforms and optimizers
diff --git a/v7/src/edwin/edwin.sf b/v7/src/edwin/edwin.sf
index 976f8aab2..21f7b371e 100644
--- a/v7/src/edwin/edwin.sf
+++ b/v7/src/edwin/edwin.sf
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: edwin.sf,v 1.25 2001/08/15 03:07:50 cph Exp $
+;;; $Id: edwin.sf,v 1.26 2001/08/16 19:08:46 cph Exp $
 ;;;
 ;;; Copyright (c) 1991-2001 Massachusetts Institute of Technology
 ;;;
@@ -35,10 +35,7 @@
 (if (not (name->package '(EDWIN)))
     (begin
       (if (not (file-exists? (pathname-new-type package-name "pkd")))
-	  (begin
-	    ((access cref/generate-trivial-constructor
-		     (->environment '(CROSS-REFERENCE)))
-	     package-name)))
+	  (cref/generate-trivial-constructor package-name))
       (construct-packages-from-file
        (fasload (pathname-new-type package-name "pkd")))))