thread: repair for killing a thread blocked on itself

2018-10-12 05:56:39 -06:00 · 2018-10-12 05:56:39 -06:00 · 51e08c48f1
commit 51e08c48f1
parent e260aef958
1 changed files with 1 additions and 1 deletions
--- 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)