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

fixed PR 8659

Browse Source 
svn: r6187
This commit is contained in:
Robby Findler 2007-05-10 15:39:25 +00:00
parent afa7382c9c
commit 747c6dca6a
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/drscheme/private/unit.ss
View File

@ -477,12 +477,15 @@ module browser threading seems wrong.
lang))
(drscheme:language-configuration:get-languages)))]
[module-language-settings
(let ([prefs-setting (preferences:get drscheme:language-configuration:settings-preferences-symbol)])
(let ([prefs-setting (preferences:get
drscheme:language-configuration:settings-preferences-symbol)])
(cond
[(eq? (drscheme:language-configuration:language-settings-language prefs-setting)
module-language)
(drscheme:language-configuration:language-settings-settings prefs-setting)]
[else (send module-language default-settings)]))])
[else
(and module-language
(send module-language default-settings))]))])
(let-values ([(matching-language settings)
(pick-new-language
this