Initialize applicable records much earlier in the cold load.

diff --git a/src/runtime/make.scm b/src/runtime/make.scm
index 4718734c98e2ac782356a1e7d6c1ba713c31bf72..ec83273d95640d9adcffa187208dcfcead399725 100644 (file)
--- a/src/runtime/make.scm
+++ b/src/runtime/make.scm
@@ -451,6 +451,7 @@ USA.
    ;; Microcode interface
    ((runtime microcode-tables) read-microcode-tables!)
    (runtime apply)
+   ((runtime record) initialize-applicator-context!)
    (runtime primitive-io)
    (runtime system-clock)
    ((runtime gc-finalizer) initialize-events!)

diff --git a/src/runtime/record.scm b/src/runtime/record.scm
index 82dcdfd3c86eaae305bf109eddabd94243bf1afd..78bc709227fde53d62a126f26a3047d9a6af81df 100644 (file)
--- a/src/runtime/record.scm
+++ b/src/runtime/record.scm
@@ -85,7 +85,7 @@ USA.
          (named-lambda (%valid-default-init? object)
            (or (not object)
                (thunk? object))))
-    (%initialize-applicator-context!)))
+    unspecific))
 
 (define (initialize-record-procedures!)
   (run-deferred-boot-actions 'record-procedures))
@@ -202,7 +202,7 @@ USA.
 (define-integrable (%set-record-type-applicator! record-type applicator)
   (%dispatch-tag-extra-set! record-type 4 applicator))
 
-(define (%initialize-applicator-context!)
+(define (initialize-applicator-context!)
   (set-fixed-objects-item! 'record-dispatch-tag %record-metatag)
   (set-fixed-objects-item! 'record-applicator-index
                           (%dispatch-tag-extra-index 4)))