From 2a302178e63dab568cb0643751e023c355afa435 Mon Sep 17 00:00:00 2001
From: sperber <sperber>
Date: Fri, 3 May 2002 13:36:15 +0000
Subject: [PATCH] Provide names for housekeeping threads for better debugging.

---
 scheme/rts/interrupt.scm      | 3 ++-
 scheme/rts/root-scheduler.scm | 4 +++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/scheme/rts/interrupt.scm b/scheme/rts/interrupt.scm
index ac0fcc9..e3a9ac3 100644
--- a/scheme/rts/interrupt.scm
+++ b/scheme/rts/interrupt.scm
@@ -89,7 +89,8 @@
 	   (lambda ()
 	     ((session-data-ref space-shortage-handler)
 	      (session-data-ref required-post-gc-space)
-	      space)))))
+	      space))
+	   'space-shortage-handler)))
     (spawn-on-root
      (lambda ()
        (for-each (lambda (p)
diff --git a/scheme/rts/root-scheduler.scm b/scheme/rts/root-scheduler.scm
index ba40533..e86d697 100644
--- a/scheme/rts/root-scheduler.scm
+++ b/scheme/rts/root-scheduler.scm
@@ -142,7 +142,9 @@
     (cond ((null? thunks)
 	   #f)
 	  (else
-	   (for-each spawn-on-root thunks)
+	   (for-each (lambda (thunk)
+		       (spawn-on-root thunk 'output-forcer))
+		     thunks)
 	   #t))))
 	 
 (define unspecific (structure-ref primitives unspecific))