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

Hide OC control panel if an error occurs during expansion.

Browse Source
This commit is contained in:
Vincent St-Amour 2012-08-31 15:53:03 -04:00
parent d544e9fbe7
commit e4af200c89
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/typed-racket/optimizer/tool/tool.rkt
View File

@ -284,6 +284,7 @@
([(lambda (e) (and (exn? e) (not (exn:break? e)))) ([(lambda (e) (and (exn? e) (not (exn:break? e))))
;; typechecking failed, report in the interactions window ;; typechecking failed, report in the interactions window
(lambda (e) (lambda (e)
(close-optimization-coach)
(send interactions reset-console) (send interactions reset-console)
(send interactions run-in-evaluation-thread (send interactions run-in-evaluation-thread
(lambda () (raise e))))]) (lambda () (raise e))))])