Hide OC control panel if an error occurs during expansion.

2012-08-31 15:53:03 -04:00 · 2012-08-31 15:53:03 -04:00 · e4af200c89
commit e4af200c89
parent d544e9fbe7
1 changed files with 1 additions and 0 deletions
--- a/collects/typed-racket/optimizer/tool/tool.rkt
+++ b/collects/typed-racket/optimizer/tool/tool.rkt
@ -284,6 +284,7 @@
                 ([(lambda (e) (and (exn? e) (not (exn:break? e))))
                   ;; typechecking failed, report in the interactions window
                   (lambda (e)
+                     (close-optimization-coach)
                     (send interactions reset-console)
                     (send interactions run-in-evaluation-thread
                           (lambda () (raise e))))])