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:
parent
67467bc32e
commit
6e463f0d8d
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue
Block a user