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

brutal changes to check syntax to try to see if they fix the symptom Marijn reports

Browse Source
This commit is contained in:
Robby Findler 2011-12-13 04:55:30 -06:00
parent 843f057024
commit 610efbbe75
1 changed files with 11 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -35,17 +35,20 @@
(list (entry-desc index-entry)
path
tag)))))))))
(sync (channel-put-evt resp-chan resp)
nack-evt)
(thread
(λ ()
(sync (channel-put-evt resp-chan resp)
nack-evt)))
(loop)))))
;; this function is called from a thread that might be killed
;; (but the body of this module is run in a context where it is
;; guaranteed that that custodian doesn't get shut down)
(define (get-index-entry-info binding-info)
(sync
(nack-guard-evt
(λ (nack-evt)
(define resp-chan (make-channel))
(channel-put req-chan (list binding-info resp-chan nack-evt))
resp-chan))))
(and (not (thread-dead? thd))
(sync
(nack-guard-evt
(λ (nack-evt)
(define resp-chan (make-channel))
(channel-put req-chan (list binding-info resp-chan nack-evt))
resp-chan)))))