Merge remote-tracking branch 'origin/silly-init-bug'

MPLLang · Jun 24, 2022 · 6c13f5c · 6c13f5c
2 parents 7d0198e + e0c3efb
commit 6c13f5c
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/basis-library/schedulers/shh/Scheduler.sml b/basis-library/schedulers/shh/Scheduler.sml
@@ -568,6 +568,7 @@ struct
     if HH.getDepth originalThread = 0 then ()
     else die (fn _ => "scheduler bug: root depth <> 0")
   val _ = HH.setDepth (originalThread, 1)
+  val _ = HH.forceLeftHeap (myWorkerId (), originalThread)
 
   (* implicitly attaches worker child heaps *)
   val _ = MLton.Parallel.initializeProcessors ()