~ chicken-core (chicken-5) 9116689ceb9612092c1f8b52f3a672b2a21694df

commit 9116689ceb9612092c1f8b52f3a672b2a21694df
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Nov 17 02:24:11 2010 -0500
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Nov 17 02:24:11 2010 -0500

    forcing primordial clears unblock-state

diff --git a/scheduler.scm b/scheduler.scm
index 1f8475cc..3751d977 100644
--- a/scheduler.scm
+++ b/scheduler.scm
@@ -170,6 +170,7 @@ EOF
 
 (define (##sys#force-primordial)
   (dbg "primordial thread forced due to interrupt")
+  (##sys#setislot ##sys#primordial-thread 13 #f)
   (##sys#thread-unblock! ##sys#primordial-thread) )
 
 (define ready-queue-head '())