From 2a2be28fb2aadb1daef8bcd6785ffb8dfa4c17cd Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 29 Apr 2018 15:50:11 -0700
Subject: [PATCH] Initialize applicable records much earlier in the cold load.
---
src/runtime/make.scm | 1 +
src/runtime/record.scm | 4 ++--
2 files changed, 3 insertions(+), 2 deletions(-)
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)))
--
2.25.1