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 0ec0cb9e598e8481a8758cf5912de2fec733554e..6a5883a787e081c2f8b84624b8db7f55e5c577e6 100644 (file)
--- 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 976f8aab283ba53f8bb86c5feab254878953d6f1..21f7b371e344dd438db013f23247d268aeb427d3 100644 (file)
--- 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")))))