thread: custodian shutdown of current suspend-to-kill thread

2018-10-05 20:53:38 -06:00 · 2018-10-05 20:53:38 -06:00 · e60a78aad9
commit e60a78aad9
parent b57b9be2f8
1 changed files with 2 additions and 1 deletions
--- a/racket/src/thread/thread.rkt
+++ b/racket/src/thread/thread.rkt
@ -332,7 +332,8 @@
         ;; Check whether the current thread was terminated
         (let ([t (current-thread)])
           (when t ; in case custodians used (for testing) without threads
-             (when (thread-dead? t)
+             (when (or (thread-dead? t)
+                       (null? (thread-custodian-references t)))
               (engine-block))
             (check-for-break-after-kill))))))