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

fixed pr 7719

Browse Source 
svn: r1524
This commit is contained in:
Robby Findler 2005-12-04 20:47:58 +00:00
parent 12dde5135e
commit 4aca256c41
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/drscheme/private/language-configuration.ss
View File

@ -529,11 +529,12 @@
(let-values ([(vis-lang vis-settings) (let-values ([(vis-lang vis-settings)
(cond (cond
[selected-language [(or (not selected-language)
(eq? selected-language language-to-show))
(values language-to-show settings-to-show)]
[(and language-to-show settings-to-show)
(values selected-language (values selected-language
(send selected-language default-settings))] (send selected-language default-settings))]
[(and language-to-show settings-to-show)
(values language-to-show settings-to-show)]
[else (values #f #f)])]) [else (values #f #f)])])
(cond (cond
[(not vis-lang) (void)] [(not vis-lang) (void)]