Rename PACKAGE/SYSTEM-LOADER to LOAD-PACKAGE-SET. That will allow us

to have an operation named UNLOAD-PACKAGE-SET.

diff --git a/v7/src/runtime/make.scm b/v7/src/runtime/make.scm
index 6d32a9972c8103e3cdd9ddf808e8d25f293f0369..2f33f031850cf93cd06c6ef03731fa077aacae61 100644 (file)
--- a/v7/src/runtime/make.scm
+++ b/v7/src/runtime/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 14.71 2001/08/15 02:55:59 cph Exp $
+$Id: make.scm,v 14.72 2001/08/17 12:51:00 cph Exp $
 
 Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
@@ -295,6 +295,7 @@ USA.
   (export 'CONSTRUCT-PACKAGES-FROM-FILE)
   (export 'ENVIRONMENT->PACKAGE)
   (export 'FIND-PACKAGE)
+  (export 'LOAD-PACKAGE-SET)
   (export 'LOAD-PACKAGES-FROM-FILE)
   (export 'NAME->PACKAGE)
   (export 'PACKAGE/ADD-CHILD!)

diff --git a/v7/src/runtime/packag.scm b/v7/src/runtime/packag.scm
index 5285a75d840cda86d3501959ec18b58feb77ef5a..c67fcf14eb6e3b089389b6feca0114a4c7493cfb 100644 (file)
--- a/v7/src/runtime/packag.scm
+++ b/v7/src/runtime/packag.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: packag.scm,v 14.30 2001/08/16 20:02:35 cph Exp $
+$Id: packag.scm,v 14.31 2001/08/17 12:50:15 cph Exp $
 
 Copyright (c) 1988-1999, 2001 Massachusetts Institute of Technology
 
@@ -161,7 +161,7 @@ USA.
 (define system-loader/enable-query?
   #f)
 
-(define (package/system-loader filename #!optional options load-interpreted?)
+(define (load-package-set filename #!optional options load-interpreted?)
   (let* ((options (if (default-object? options) '() options))
         (pathname
          (let ((rewrite (lookup-option 'REWRITE-PACKAGE-FILE-NAME options))
@@ -205,6 +205,9 @@ USA.
   ;; can end up being purified also.
   (flush-purification-queue!))
 
+(define package/system-loader
+  load-package-set)
+
 (define (filename->compiled-object system component)
   (let ((prim (ucode-primitive initialize-c-compiled-block 1)))
     (and (implemented-primitive-procedure? prim)

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index e5397387b741e2c806bbc4f90f58df5d7cf6d379..88bc3bb84fb4790d4b2fa3b36ec83c970b9c011e 100644 (file)
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.373 2001/08/15 02:56:21 cph Exp $
+$Id: runtime.pkg,v 14.374 2001/08/17 12:50:52 cph Exp $
 
 Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
@@ -54,6 +54,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
          construct-packages-from-file
          environment->package
          find-package
+         load-package-set
          load-packages-from-file
          name->package
          package/add-child!