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

added a bit of missing synchronization

Browse Source 
svn: r1480
This commit is contained in:
Matthew Flatt 2005-12-02 05:32:32 +00:00
parent e86f372261
commit 97d4e826b4
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/browser/private/hyper.ss
View File

@ -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)))]