svn: r10954
This commit is contained in:
Eli Barzilay 2008-07-29 04:33:36 +00:00
parent f30efeb8c3
commit a871476756

View File

@ -536,7 +536,7 @@
[(drscheme:help-context-term)
(let* ([m (get-module)]
[m (and m (pair? m) (pair? (cdr m)) (cadr m))]
[m (and m (regexp-match #rx"^(lang/[^/.]+).ss$"))]
[m (and m (regexp-match #rx"^(lang/[^/.]+).ss$" m))]
[m (and m (cadr m))])
(if m
(format "L:~a" m)