Don't block DrRacket if expansion exits abnormally.

2011-07-21 17:14:05 -04:00 · 2011-07-21 17:14:05 -04:00 · 19ce4d44a5
commit 19ce4d44a5
parent 58fbd8ba75
1 changed files with 2 additions and 1 deletions
--- a/collects/typed-scheme/optimizer/tool/report.rkt
+++ b/collects/typed-scheme/optimizer/tool/report.rkt
@ -54,7 +54,8 @@
        (channel-put done-chan 'done) ; let the rest of the program carry on
        (custodian-shutdown-all (current-custodian)))) ; kill ourselves
     (set! listener (start-recording #:level 'warning)))
-   void ; kill
+   (lambda () ; kill
+     (channel-put done-chan 'done))
   (lambda (term k)
     (if (eof-object? term)
         (begin (set! log (stop-recording listener)) ; done, stash the log