From 950b76e7bd435c13f67d066291bf073d27c8d7d5 Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Sat, 11 Jul 2015 12:32:52 -0700 Subject: [PATCH] Add type-checking to thread-dead?. --- src/runtime/thread.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/runtime/thread.scm b/src/runtime/thread.scm index 91ac09d5a..3204e3841 100644 --- 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))) (define thread-population) -- 2.25.1