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

Fixing the error message from PR12443

Browse Source 
original commit: 9b579d8c2aa8548e6b49c9aeec0a7a4cf107bd58
This commit is contained in:
Jay McCarthy 2012-03-23 10:44:43 -06:00
parent 2147d288a1
commit 3f6a5bb5ef
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/mzlib/thread.rkt
View File

@ -112,8 +112,14 @@
;; Enable breaking: ;; Enable breaking:
(when can-break? (when can-break?
(break-enabled #t)) (break-enabled #t))
;; Prevent the handler from
;; killing this custodian, by
;; creating an intermediary,
;; but child custodian
(parameterize ([current-custodian
(make-custodian)])
;; Call the handler ;; Call the handler
(handler r w)))))]) (handler r w))))))])
;; Clean-up and timeout thread: ;; Clean-up and timeout thread:
(thread (thread
(lambda () (lambda ()