part of PR 9217

svn: r8797
This commit is contained in:
Robby Findler 2008-02-25 13:37:55 +00:00
parent 42c2c91cda
commit 871bb0bac5

View File

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