adjust the framework to avoid

calling the error-display-handler when reporting
problems saving files

closes PR 13403

original commit: aa5f2e7875827ab4549830339de52641cfc86836
This commit is contained in:
Robby Findler 2013-01-03 20:45:47 -06:00
parent 67467bc32e
commit 6e463f0d8d

View File

@ -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