From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Sun, 22 Feb 2015 01:17:32 +0000 (-0700)
Subject: smp: Move call to make-fluid.  Squash into 99bc079.
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=365f9e9bffe4af7589e4e911ea7aa5f2de9bb087;p=mit-scheme.git

smp: Move call to make-fluid.  Squash into 99bc079.

Presumably 99bc079 does not build without moving the make-fluid from
initialize-low! to initialize-high!.
---

diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm
index ef8ea6e28..6d180f689 100644
--- a/src/runtime/thread.scm
+++ b/src/runtime/thread.scm
@@ -164,7 +164,6 @@ USA.
 
 (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)
@@ -183,6 +182,7 @@ USA.
 
 (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!)