suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Matthew Flatt 2018-10-05 20:53:38 -06:00
parent b57b9be2f8
commit e60a78aad9
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/src/thread/thread.rkt
View File

@ -332,7 +332,8 @@
;; Check whether the current thread was terminated ;; Check whether the current thread was terminated
(let ([t (current-thread)]) (let ([t (current-thread)])
(when t ; in case custodians used (for testing) without threads (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)) (engine-block))
(check-for-break-after-kill)))))) (check-for-break-after-kill))))))