From f7e15f0be6714d9b2caaa2d7b5da26a21b06c40d Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 30 Nov 2005 00:01:48 +0000 Subject: [PATCH] fixed PR 7716 svn: r1442 --- .../private/language-configuration.ss | 19 ++++++++++++------- 1 file changed, 12 insertions(+), 7 deletions(-) diff --git a/collects/drscheme/private/language-configuration.ss b/collects/drscheme/private/language-configuration.ss index cf09956c00..e9473f05da 100644 --- a/collects/drscheme/private/language-configuration.ss +++ b/collects/drscheme/private/language-configuration.ss @@ -517,13 +517,18 @@ (set! language-details-panel language-details-panel-real) (set! real-get/set-settings get/set-settings)) - (cond - [(equal? (send (or selected-language language-to-show) get-language-position) - (send language get-language-position)) - (get/set-settings settings-to-show) - (send details-panel active-child language-details-panel)] - [else - (get/set-settings (send language default-settings))])))) + (let-values ([(vis-lang vis-settings) + (if selected-language + (values selected-language + (send selected-language default-settings)) + (values language-to-show settings-to-show))]) + (cond + [(equal? (send vis-lang get-language-position) + (send language get-language-position)) + (get/set-settings vis-settings) + (send details-panel active-child language-details-panel)] + [else + (get/set-settings (send language default-settings))]))))) (send item set-number number) (when second-number