Don't flush parsed-contents when preregistering.

It is needed for loading libraries as source.

(cherry picked from commit 48b6043579afe872e0ccc9fbed5b0b023648e341)

diff --git a/src/runtime/library-database.scm b/src/runtime/library-database.scm
index b54057955a2195ada0c112d8d3deebc3fb12d60f..439260a1d621071e98cda655660d0a416b402231 100644 (file)
--- a/src/runtime/library-database.scm
+++ b/src/runtime/library-database.scm
@@ -231,8 +231,7 @@ USA.
 (define (prepare-for-preregistration library)
   (alist->library (library-name library)
     (alist-fold-right (lambda (key value acc)
-                       (if (or (eq? key 'parsed-contents)
-                               (eq? key 'contents))
+                       (if (eq? key 'contents)
                            acc
                            (alist-cons key value acc)))
                      (alist-cons 'preregistration? #t '())