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

Provide names for housekeeping threads for better debugging.

This commit is contained in:
sperber 2002-05-03 13:36:15 +00:00
parent f5d958ac91
commit 2a302178e6
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scheme/rts/interrupt.scm
View File

@ -89,7 +89,8 @@
(lambda () (lambda ()
((session-data-ref space-shortage-handler) ((session-data-ref space-shortage-handler)
(session-data-ref required-post-gc-space) (session-data-ref required-post-gc-space)
space))))) space))
'space-shortage-handler)))
(spawn-on-root (spawn-on-root
(lambda () (lambda ()
(for-each (lambda (p) (for-each (lambda (p)

4
scheme/rts/root-scheduler.scm
View File

@ -142,7 +142,9 @@
(cond ((null? thunks) (cond ((null? thunks)
#f) #f)
(else (else
(for-each spawn-on-root thunks) (for-each (lambda (thunk)
(spawn-on-root thunk 'output-forcer))
thunks)
#t)))) #t))))
(define unspecific (structure-ref primitives unspecific)) (define unspecific (structure-ref primitives unspecific))