scsh-conservatory
/
scsh-0.6
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Spawn-on-root the deliver-interrupts thread.

This commit is contained in:
mainzelm 2002-06-10 08:49:13 +00:00
parent e710e9b121
commit 54a3d86c67
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scsh/sighandlers.scm
View File

@ -188,7 +188,10 @@
(structure-ref threads-internal event-type) (structure-ref threads-internal event-type)
interrupt) interrupt)
(enum interrupt keyboard)))))) (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) (define (deliver-interrupts)
(let lp ((last ((structure-ref sigevents most-recent-sigevent)))) (let lp ((last ((structure-ref sigevents most-recent-sigevent))))