Spawn-on-root the deliver-interrupts thread.

2002-06-10 08:49:13 +00:00 · 2002-06-10 08:49:13 +00:00 · 54a3d86c67
parent e710e9b121
commit 54a3d86c67
1 changed files with 4 additions and 1 deletions
--- 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))))