From 237a24261d35ee93fea972981e3db0baae877c15 Mon Sep 17 00:00:00 2001 From: AlexKnauth Date: Fri, 26 Dec 2014 01:30:07 -0600 Subject: [PATCH] fix typo (open-input-string) -> (open-output-string) --- gui-lib/framework/private/color-prefs.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/gui-lib/framework/private/color-prefs.rkt b/gui-lib/framework/private/color-prefs.rkt index 75104f88..bcea7559 100644 --- a/gui-lib/framework/private/color-prefs.rkt +++ b/gui-lib/framework/private/color-prefs.rkt @@ -632,7 +632,7 @@ (for ([dir (in-list (find-relevant-directories '(framework:color-schemes)))]) (define info (with-handlers ([exn:fail? (λ (x) - (define sp (open-input-string)) + (define sp (open-output-string)) (parameterize ([current-error-port sp]) ((error-display-handler) (if (exn? x) (exn-message x) (format "uncaught exn: ~s" x))