From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 22 Oct 2019 07:16:20 +0000 (-0700)
Subject: Preserve the initial host-library-db.
X-Git-Tag: mit-scheme-pucked-10.1.20~11^2~24
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b03648344461cca9ec802f1f4a8aab1a3345e725;p=mit-scheme.git

Preserve the initial host-library-db.
---

diff --git a/src/runtime/library-standard.scm b/src/runtime/library-standard.scm
index 3259e415b..c02b5d526 100644
--- a/src/runtime/library-standard.scm
+++ b/src/runtime/library-standard.scm
@@ -1001,6 +1001,7 @@ USA.
 (define-synthetic-library '(mit library) '(runtime)
   (package-predicate:name-prefix '(runtime library)))
 
+(define initial-host-library-db)
 (define (initialize-synthetic-libraries! package-file)
   (for-each (lambda (p)
 	      (let ((name (car p))
@@ -1009,7 +1010,9 @@ USA.
 		(make-synthetic-library name
 		  (get-exports package-file source-package package-pred)
 		  (->environment source-package))))
-	    synthetic-libraries))
+	    synthetic-libraries)
+  (set! initial-host-library-db (copy-library-db host-library-db))
+  unspecific)
 
 (define (make-synthetic-library name exports environment)
   (register-library! (make-library name
diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index 9c9bfba31..e6504898d 100644
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -6075,6 +6075,7 @@ USA.
   (export (runtime)
 	  current-library-db
 	  host-library-db
+	  initial-host-library-db
 	  standard-library-globals)
   (export (runtime library)
 	  add-standard-libraries!