From 4418ab72b32d1a2237cc8361d12348cac414931a 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 862c1cf68..fc75ab94b 100644 --- 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))) (define thread-population) -- 2.25.1