Cope with migration of initial fiber

* fibers.scm (run-fibers): Allow migration of main fiber.

1 files changed, 4 insertions, 1 deletions

diff --git a/fibers.scm b/fibers.scm
index 1e8d0ec..8ae1d92 100644
--- a/fibers.scm
+++ b/fibers.scm
@@ -114,7 +114,10 @@
         (error "run-fibers requires initial fiber thunk when creating sched"))
       (spawn-fiber (lambda ()
                      (call-with-values init
-                       (lambda vals (atomic-box-set! ret vals))))
+                       (lambda vals (atomic-box-set! ret vals)))
+                     ;; Could be that this fiber was migrated away.
+                     ;; Make sure to wake up the main scheduler.
+                     (spawn-fiber (lambda () #t) scheduler))
                    scheduler)
       (match affinities
         ((affinity . affinities)