(define (initialize-low!)
;; Called early in the cold load to create the first thread.
- (set! root-continuation-default (make-fluid #f))
(set! thread-population (make-population))
(set! first-runnable-thread #f)
(set! last-runnable-thread #f)
(define (initialize-high!)
;; Called later in the cold load, when more of the runtime is initialized.
+ (set! root-continuation-default (make-fluid #f))
(initialize-error-conditions!)
(reset-threads-high!)
(add-event-receiver! event:after-restore reset-threads!)