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

made the error display handler be a little more robust for multi-threading situations

Browse Source 
svn: r7177
This commit is contained in:
Robby Findler 2007-08-26 12:29:49 +00:00
parent 460c3d6477
commit 14888e3e07
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/drscheme/private/init.ss
View File

@ -21,6 +21,8 @@
(define system-namespace (current-namespace))
(define first-dir (current-directory))
(define error-display-eventspace (make-eventspace))
(define original-error-display-handler (error-display-handler))
(define error-display-handler-message-box-title
@ -44,10 +46,6 @@
(original-error-display-handler msg exn))
(get-output-string p))])
(if (eq? (current-eventspace) system-eventspace)
(message-box title text #f '(stop ok))
(parameterize ([current-eventspace system-eventspace]
[current-custodian system-custodian])
(queue-callback
(λ ()
(message-box title text #f '(stop ok)))))))))))
(parameterize ([current-custodian system-custodian])
(parameterize ([current-eventspace error-display-eventspace])
(message-box title text #f '(stop ok)))))))))