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

adjust planet logging so that it doesn't try to log when the logging thread is dead

Browse Source 
(and thus doesn't deadlock in drdr (hopefully))
This commit is contained in:
Robby Findler 2011-11-11 16:04:37 -06:00
parent 9b4e0ad15a
commit a1f94c4bd1
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/planet/terse-info.rkt
View File

@ -49,7 +49,8 @@ seems little point to that).
(loop)))))))))) (loop))))))))))
(define (planet-terse-log id str) (define (planet-terse-log id str)
(sync (channel-put-evt terse-log-message-chan (list (thread-cell-ref log-key-tc) id str))) (unless (thread-dead? thd)
(sync (channel-put-evt terse-log-message-chan (list (thread-cell-ref log-key-tc) id str))))
(void)) (void))
(define (planet-terse-register proc) (define (planet-terse-register proc)