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

adjust the autosave error code to print the stacktrace

Browse Source 
related to PR 12400
This commit is contained in:
Robby Findler 2011-11-28 15:34:30 -06:00
parent 5d1a2beded
commit d580518e66
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -610,7 +610,8 @@
(define/private (show-autosave-error exn orig-name) (define/private (show-autosave-error exn orig-name)
(message-box (message-box
(string-constant warning) (string-constant warning)
(string-append (apply
string-append
(format (string-constant error-autosaving) (format (string-constant error-autosaving)
(or orig-name (string-constant untitled))) (or orig-name (string-constant untitled)))
"\n" "\n"
@ -618,7 +619,14 @@
"\n\n" "\n\n"
(if (exn? exn) (if (exn? exn)
(format "~a" (exn-message exn)) (format "~a" (exn-message exn))
(format "~s" exn))) (format "~s" exn))
"\n\n"
(if (and (exn? exn)
(continuation-mark-set? (exn-continuation-marks exn)))
(for/list ([fr (in-list (continuation-mark-set->context
(exn-continuation-marks exn)))])
(format " ~s\n" fr))
'()))
#f #f
'(caution ok))) '(caution ok)))