From 51e08c48f1065d6342e73b78f3fe3d15afa4d82b Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 12 Oct 2018 05:56:39 -0600
Subject: [PATCH] thread: repair for killing a thread blocked on itself

---
 racket/src/thread/thread.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/thread/thread.rkt b/racket/src/thread/thread.rkt
index 10a2c72443..ab32235b34 100644
--- a/racket/src/thread/thread.rkt
+++ b/racket/src/thread/thread.rkt
@@ -246,9 +246,9 @@
 (define (thread-dead! t)
   (assert-atomic-mode)
   (set-thread-engine! t 'done)
+  (run-interrupt-callback t)
   (when (thread-dead-sema t)
     (semaphore-post-all (thread-dead-sema t)))
-  (run-interrupt-callback t)
   (unless (thread-descheduled? t)
     (thread-group-remove! (thread-parent t) t))
   (remove-from-sleeping-threads! t)