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

Removing the thread previously introduced which is now no longer necessary given the real problem

Browse Source 
original commit: dfb4bc112d3947566282d6e16ddb60ed72acac5e
This commit is contained in:
Jay McCarthy 2012-03-23 10:47:56 -06:00
parent 3f6a5bb5ef
commit 0cb4ef4c3e
1 changed files with 46 additions and 49 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mzlib/thread.rkt
View File

@ -79,9 +79,6 @@
;; PR still shows up, but it has no effect on the ;; PR still shows up, but it has no effect on the
;; response time/etc, whereas before it would stop ;; response time/etc, whereas before it would stop
;; listening and 'ab' would fail. ;; listening and 'ab' would fail.
(thread-wait
(thread
(λ ()
(with-handlers (with-handlers
([exn:fail:network? handle-exn]) ([exn:fail:network? handle-exn])
;; Make a custodian for the next session: ;; Make a custodian for the next session:
@ -128,7 +125,7 @@
;; Only happens if connection-timeout is not #f ;; Only happens if connection-timeout is not #f
(break-thread t)) (break-thread t))
(sync/timeout connection-timeout t) (sync/timeout connection-timeout t)
(custodian-shutdown-all c)))))))))))) (custodian-shutdown-all c)))))))))
(loop)))) (loop))))
(lambda () (tcp-close l))))) (lambda () (tcp-close l)))))