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

Don't block DrRacket if expansion exits abnormally.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-07-21 17:14:05 -04:00
parent 58fbd8ba75
commit 19ce4d44a5
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/typed-scheme/optimizer/tool/report.rkt
View File

@ -54,7 +54,8 @@
(channel-put done-chan 'done) ; let the rest of the program carry on (channel-put done-chan 'done) ; let the rest of the program carry on
(custodian-shutdown-all (current-custodian)))) ; kill ourselves (custodian-shutdown-all (current-custodian)))) ; kill ourselves
(set! listener (start-recording #:level 'warning))) (set! listener (start-recording #:level 'warning)))
void ; kill (lambda () ; kill
(channel-put done-chan 'done))
(lambda (term k) (lambda (term k)
(if (eof-object? term) (if (eof-object? term)
(begin (set! log (stop-recording listener)) ; done, stash the log (begin (set! log (stop-recording listener)) ; done, stash the log