Add type-checking to thread-dead?.

diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm
index 862c1cf68e52c331cf1e2c4f34e2792a5dd3ef05..fc75ab94ba7b99c31587e0ae8c0e5a645364fe16 100644 (file)
--- a/src/runtime/thread.scm
+++ b/src/runtime/thread.scm
@@ -88,7 +88,8 @@ USA.
 (define no-exit-value-marker
   (list 'NO-EXIT-VALUE-MARKER))
 
-(define-integrable (thread-dead? thread)
+(define (thread-dead? thread)
+  (guarantee-thread thread 'THREAD-DEAD?)
   (eq? 'DEAD (thread/execution-state thread)))
 \f
 (define thread-population)