From 610efbbe75023c8e50667b7d86510f125c548104 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Tue, 13 Dec 2011 04:55:30 -0600 Subject: [PATCH] brutal changes to check syntax to try to see if they fix the symptom Marijn reports --- collects/drracket/private/syncheck/xref.rkt | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) diff --git a/collects/drracket/private/syncheck/xref.rkt b/collects/drracket/private/syncheck/xref.rkt index 8451d3161e..8ac0fab10a 100644 --- a/collects/drracket/private/syncheck/xref.rkt +++ b/collects/drracket/private/syncheck/xref.rkt @@ -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)))))