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

fix typo (open-input-string) -> (open-output-string)

Browse Source
This commit is contained in:
AlexKnauth 2014-12-26 01:30:07 -06:00
parent c494bf367e
commit 237a24261d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -632,7 +632,7 @@
(for ([dir (in-list (find-relevant-directories '(framework:color-schemes)))]) (for ([dir (in-list (find-relevant-directories '(framework:color-schemes)))])
(define info (with-handlers ([exn:fail? (define info (with-handlers ([exn:fail?
(λ (x) (λ (x)
(define sp (open-input-string)) (define sp (open-output-string))
(parameterize ([current-error-port sp]) (parameterize ([current-error-port sp])
((error-display-handler) ((error-display-handler)
(if (exn? x) (exn-message x) (format "uncaught exn: ~s" x)) (if (exn? x) (exn-message x) (format "uncaught exn: ~s" x))