suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

adjust the framework to avoid

Browse Source 
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
1 changed files with 3 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/framework/private/editor.rkt
View File

@ -149,14 +149,9 @@
#t)))) #t))))
(define/private (format-error-message exn) (define/private (format-error-message exn)
(let ([sp (open-output-string)])
(parameterize ([current-output-port sp])
((error-display-handler)
(if (exn? exn) (if (exn? exn)
(format "~a" (exn-message exn)) (format "~a" (exn-message exn))
(format "uncaught exn: ~s" exn)) (format "uncaught exn: ~s" exn)))
exn))
(get-output-string sp)))
(inherit refresh-delayed? (inherit refresh-delayed?
get-canvas get-canvas