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

Restore proper error handling.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-07-29 12:31:41 -04:00
parent d794d33b5e
commit 968f3b0905
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/typed-scheme/optimizer/tool/tool.rkt
View File

@ -17,7 +17,14 @@
;; performance-report-callback : drracket:unit:frame<%> -> void
(define (performance-report-callback drr-frame)
(send (send drr-frame get-definitions-text) add-highlights))
(with-handlers
([exn?
;; typechecking failed, report in the interactions window
(lambda (e)
(define interactions (send drr-frame get-interactions-text))
(send interactions reset-console)
(send interactions run-in-evaluation-thread (lambda () (raise e))))])
(send (send drr-frame get-definitions-text) add-highlights)))
(define highlights-mixin
(mixin ((class->interface text%)) ()