From 97d4e826b488865af01aac65affd49328a3fb7ea Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 2 Dec 2005 05:32:32 +0000 Subject: [PATCH] added a bit of missing synchronization svn: r1480 --- collects/browser/private/hyper.ss | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/collects/browser/private/hyper.ss b/collects/browser/private/hyper.ss index 6293847582..c778629137 100644 --- a/collects/browser/private/hyper.ss +++ b/collects/browser/private/hyper.ss @@ -473,7 +473,8 @@ A test case: (current-load-relative-directory))]) (parameterize ([html-status-handler (lambda (s) - (let ([t (current-thread)]) + (let ([t (current-thread)] + [sema (make-semaphore)]) (queue-callback (lambda () (when (thread-running? t) @@ -481,7 +482,9 @@ A test case: ;; closed by the watcher thread (and there's no ;; race, because it can only be closed in the ;; handler thread) - (update-browser-status-line top-level-window s))))))] + (update-browser-status-line top-level-window s)) + (semaphore-post sema))) + (semaphore-wait sema)))] [current-load-relative-directory directory] [html-eval-ok (url-allows-evaling? url)]) (html-convert p this)))]