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

fix a race-condition

Browse Source
This commit is contained in:
Robby Findler 2013-03-24 17:04:39 -05:00
parent 57f857b45a
commit 5937bcbbf5
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/drracket/private/expanding-place.rkt
View File

@ -88,6 +88,8 @@
(define abnormal-termination (make-channel)) (define abnormal-termination (make-channel))
(define the-source (or path "unsaved editor")) (define the-source (or path "unsaved editor"))
(define orig-cust (current-custodian)) (define orig-cust (current-custodian))
(define (stop-watching-abnormal-termination)
(channel-put normal-termination #t))
(define working-thd (define working-thd
(parameterize ([current-custodian cust]) (parameterize ([current-custodian cust])
@ -263,9 +265,6 @@
'()) '())
(list-ref exn+loaded-paths 1)))))))) (list-ref exn+loaded-paths 1))))))))
(define (stop-watching-abnormal-termination)
(channel-put normal-termination #t))
(job cust response-pc working-thd stop-watching-abnormal-termination)) (job cust response-pc working-thd stop-watching-abnormal-termination))
(define (catch-and-log port sema) (define (catch-and-log port sema)