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

Revert "adjust the synchronization in check syntax for reading doc results to"

Browse Source 
This reverts commit 8f12372b17.
This commit is contained in:
Robby Findler 2011-12-13 04:52:32 -06:00
parent 701b8ed72f
commit 843f057024
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/drracket/private/syncheck/xref.rkt
View File

@ -22,7 +22,7 @@
(thread
(λ ()
(let loop ()
(define-values (binding-info resp-chan nack-evt requesting-thread) (apply values (channel-get req-chan)))
(define-values (binding-info resp-chan nack-evt) (apply values (channel-get req-chan)))
(define xref (force delayed-xref))
(define resp
(and xref
@ -36,8 +36,7 @@
path
tag)))))))))
(sync (channel-put-evt resp-chan resp)
nack-evt
(thread-dead-evt requesting-thread))
nack-evt)
(loop)))))
;; this function is called from a thread that might be killed
@ -48,5 +47,5 @@
(nack-guard-evt
(λ (nack-evt)
(define resp-chan (make-channel))
(channel-put req-chan (list binding-info resp-chan nack-evt (current-thread)))
(channel-put req-chan (list binding-info resp-chan nack-evt))
resp-chan))))