From a18bed0bd7a134ba4a949fc89f9511a500998703 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 16 Aug 2001 19:09:28 +0000 Subject: [PATCH] Don't use ACCESS to reference CREF/GENERATE-TRIVIAL-CONSTRUCTOR. It's now exported to the global environment. --- v7/src/compiler/machines/i386/compiler.sf | 6 ++---- v7/src/edwin/edwin.sf | 7 ++----- 2 files changed, 4 insertions(+), 9 deletions(-) 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"))))) -- 2.25.1