From 54a3d86c6729f594332d1f828155292b15215a19 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Mon, 10 Jun 2002 08:49:13 +0000
Subject: [PATCH] Spawn-on-root the deliver-interrupts thread.

---
 scsh/sighandlers.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/scsh/sighandlers.scm b/scsh/sighandlers.scm
index 0ee0ea1..ba74828 100644
--- a/scsh/sighandlers.scm
+++ b/scsh/sighandlers.scm
@@ -188,7 +188,10 @@
 				   (structure-ref threads-internal event-type) 
 				   interrupt)
 				  (enum interrupt keyboard))))))
-  (run-as-long-as deliver-interrupts thunk 'deliver-interrupts))
+  ((structure-ref threads-internal spawn-on-root)
+   deliver-interrupts 
+   'deliver-interrupts)
+  (thunk))
 
 (define (deliver-interrupts)
   (let lp ((last ((structure-ref sigevents most-recent-sigevent))))