From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 29 Apr 2018 22:50:11 +0000 (-0700)
Subject: Initialize applicable records much earlier in the cold load.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~93
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2a2be28fb2aadb1daef8bcd6785ffb8dfa4c17cd;p=mit-scheme.git

Initialize applicable records much earlier in the cold load.
---

diff --git a/src/runtime/make.scm b/src/runtime/make.scm
index 4718734c9..ec83273d9 100644
--- 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 82dcdfd3c..78bc70922 100644
--- 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)))