From c332c2a29e80ebe7ff883a507a76ea412c0b6c15 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 17 Jun 2013 04:40:45 -0500 Subject: [PATCH] add more information to the module browser error messages --- collects/drracket/private/module-browser.rkt | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/collects/drracket/private/module-browser.rkt b/collects/drracket/private/module-browser.rkt index 66b9017f1f..ffc2dac6fc 100644 --- a/collects/drracket/private/module-browser.rkt +++ b/collects/drracket/private/module-browser.rkt @@ -884,7 +884,16 @@ (current-error-port (swallow-specials original-error-port)) (current-load-relative-directory #f) (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, ;; we just shut it all down. This kills the event handling loop