~ chicken-core (chicken-5) cd12e52ff41e64320dfa7c2c820e81ec55e4d03b

commit cd12e52ff41e64320dfa7c2c820e81ec55e4d03b
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Wed Feb 24 21:11:32 2016 +0100
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Wed Feb 24 21:11:32 2016 +0100

    Allow hooking into ##sys#force-primordial
    
    This is an extraordinary exception: we allow this to work around an
    alleged breakage which we haven't yet fixed.
    
    Signed-off-by: Evan Hanson <evhan@foldling.org>

diff --git a/scheduler.scm b/scheduler.scm
index ac9f6128..1245182e 100644
--- a/scheduler.scm
+++ b/scheduler.scm
@@ -31,10 +31,12 @@
   (disable-interrupts)
   (hide ready-queue-head ready-queue-tail ##sys#timeout-list
 	##sys#update-thread-state-buffer ##sys#restore-thread-state-buffer
-	remove-from-ready-queue ##sys#unblock-threads-for-i/o ##sys#force-primordial
+	remove-from-ready-queue ##sys#unblock-threads-for-i/o
+	;; This isn't hidden ATM to allow set!ing it as a hook/workaround
+	; ##sys#force-primordial
 	fdset-set fdset-test create-fdset stderr delq
 	##sys#clear-i/o-state-for-thread! ##sys#abandon-mutexes) 
-  (not inline ##sys#interrupt-hook)
+  (not inline ##sys#interrupt-hook ##sys#force-primordial)
   (unsafe)
   (foreign-declare #<<EOF
 #ifdef HAVE_ERRNO_H