fixed a bug in the initialization of the language dialog

svn: r18589
2010-03-21 01:37:53 +00:00 · 2010-03-21 01:37:53 +00:00 · 580f105792
commit 580f105792
parent 09cfe5f626
1 changed files with 1 additions and 2 deletions
--- a/collects/drscheme/private/language-configuration.ss
+++ b/collects/drscheme/private/language-configuration.ss
@ -741,8 +741,7 @@
        (define (open-current-language)
          (when (and language-to-show settings-to-show)
            (cond
-              [(equal? language-to-show 
-                       module-language*language)
+              [(is-a? language-to-show drscheme:module-language:module-language<%>)
               (module-language-selected)]
              [else
               (send languages-hier-list focus) ;; only focus when the module language isn't selected