Add type-checking to thread-dead?.

diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm
index 91ac09d5add6f1a189d87910a0f5e8740fd7b47c..3204e384152b65d3ee667f6f14ffcd065f69f180 100644 (file)
--- a/src/runtime/thread.scm
+++ b/src/runtime/thread.scm
@@ -203,7 +203,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)