From 6e463f0d8d8ad34c3b47dba6e893efbae9ad05c6 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 3 Jan 2013 20:45:47 -0600 Subject: [PATCH] adjust the framework to avoid calling the error-display-handler when reporting problems saving files closes PR 13403 original commit: aa5f2e7875827ab4549830339de52641cfc86836 --- collects/framework/private/editor.rkt | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) diff --git a/collects/framework/private/editor.rkt b/collects/framework/private/editor.rkt index 9b795836..388818e4 100644 --- a/collects/framework/private/editor.rkt +++ b/collects/framework/private/editor.rkt @@ -149,14 +149,9 @@ #t)))) (define/private (format-error-message exn) - (let ([sp (open-output-string)]) - (parameterize ([current-output-port sp]) - ((error-display-handler) - (if (exn? exn) - (format "~a" (exn-message exn)) - (format "uncaught exn: ~s" exn)) - exn)) - (get-output-string sp))) + (if (exn? exn) + (format "~a" (exn-message exn)) + (format "uncaught exn: ~s" exn))) (inherit refresh-delayed? get-canvas