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

add more information to the module browser error messages

Browse Source
This commit is contained in:
Robby Findler 2013-06-17 04:40:45 -05:00
parent 494f7d6951
commit c332c2a29e
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/drracket/private/module-browser.rkt
View File

@ -884,7 +884,16 @@
(current-error-port (swallow-specials original-error-port)) (current-error-port (swallow-specials original-error-port))
(current-load-relative-directory #f) (current-load-relative-directory #f)
(current-directory init-dir) (current-directory init-dir)
(error-display-handler (λ (str exn) (set! error-str str))) (error-display-handler (λ (str exn)
(set! error-str str)
(when (exn? exn)
(set! error-str
(apply
string-append
error-str
(for/list ([x (in-list (continuation-mark-set->context
(exn-continuation-marks exn)))])
(format "\n ~s" x)))))))
;; instead of escaping when there's an error on the user thread, ;; instead of escaping when there's an error on the user thread,
;; we just shut it all down. This kills the event handling loop ;; we just shut it all down. This kills the event handling loop