From 332ce02127cfd64b4356aa8d5f36046b67b64f3d Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 17 Jun 2013 16:47:22 -0500 Subject: [PATCH] fix error message handling closes PR 13859 --- collects/drracket/private/init.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/drracket/private/init.rkt b/collects/drracket/private/init.rkt index 2f3bad817b..e539b2b73b 100644 --- a/collects/drracket/private/init.rkt +++ b/collects/drracket/private/init.rkt @@ -75,7 +75,7 @@ (thread (λ () (message-box title text #f '(stop ok) #:dialog-mixin frame:focus-table-mixin) - (channel-put currently-visible #f)))) + (channel-put currently-visible-chan #f)))) (loop (cons (make-recent msg (current-seconds)) recently-seen-errors) #t)]))) (handle-evt @@ -86,7 +86,7 @@ ;; override error-display-handler to duplicate the error ;; message in both the standard place (as defined by the ;; current error-display-handler) and in a message box - ;; identifying the error as a drscheme internal error. + ;; identifying the error as a drracket internal error. (error-display-handler (λ (msg exn) ;; this may raise an exception if the port is gone.