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

PR 10786

Browse Source 
svn: r18378
This commit is contained in:
Robby Findler 2010-02-27 12:40:38 +00:00
parent 508b2ca269
commit 78dc617a14
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3247,7 +3247,7 @@ module browser threading seems wrong.
[lang (drscheme:language-configuration:language-settings-language lang/config)] [lang (drscheme:language-configuration:language-settings-language lang/config)]
[strs (send lang get-language-position)] [strs (send lang get-language-position)]
[can-browse? [can-browse?
(or (regexp-match #rx"Module" (last strs)) (or (is-a? lang drscheme:module-language:module-language<%>)
(ormap (λ (x) (regexp-match #rx"PLT" x)) (ormap (λ (x) (regexp-match #rx"PLT" x))
strs))]) strs))])
(unless can-browse? (unless can-browse?