Preserve the initial host-library-db.

diff --git a/src/runtime/library-standard.scm b/src/runtime/library-standard.scm
index 3259e415b8fd6574444851083f4cbaf3d685ca0f..c02b5d526ed3775b62c6bd1fe48d4dc3366a8497 100644 (file)
--- 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 9c9bfba31452c1e34ccd315f362a5f5d96e71aa7..e6504898defe715bf30a3f73c1680862b3f515df 100644 (file)
--- 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!