From 2a2be28fb2aadb1daef8bcd6785ffb8dfa4c17cd Mon Sep 17 00:00:00 2001 From: Chris Hanson 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