From b03648344461cca9ec802f1f4a8aab1a3345e725 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 22 Oct 2019 00:16:20 -0700 Subject: [PATCH] Preserve the initial host-library-db. --- src/runtime/library-standard.scm | 5 ++++- src/runtime/runtime.pkg | 1 + 2 files changed, 5 insertions(+), 1 deletion(-) 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! -- 2.25.1