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

protect against errors while loading color schemes

Browse Source 
closes PR 14884
This commit is contained in:
Robby Findler 2014-12-13 14:37:18 -06:00
parent 9551380791
commit c494bf367e
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gui-lib/framework/private/color-prefs.rkt
View File

@ -630,7 +630,19 @@
(sort (set->list known-style-names) symbol<?)) (sort (set->list known-style-names) symbol<?))
(define preferred-color-scheme (preferences:get 'framework:color-scheme)) (define preferred-color-scheme (preferences:get 'framework:color-scheme))
(for ([dir (in-list (find-relevant-directories '(framework:color-schemes)))]) (for ([dir (in-list (find-relevant-directories '(framework:color-schemes)))])
(define info (get-info/full dir)) (define info (with-handlers ([exn:fail?
(λ (x)
(define sp (open-input-string))
(parameterize ([current-error-port sp])
((error-display-handler)
(if (exn? x) (exn-message x) (format "uncaught exn: ~s" x))
x))
(log-color-scheme-warning
"info file in ~a failed to load:\n~a"
dir
(get-output-string sp))
#f)])
(get-info/full dir)))
(when info (when info
(define cs-info (info 'framework:color-schemes)) (define cs-info (info 'framework:color-schemes))
(cond (cond