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

typo

Browse Source 
svn: r10954
This commit is contained in:
Eli Barzilay 2008-07-29 04:33:36 +00:00
parent f30efeb8c3
commit a871476756
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/lang/htdp-langs.ss
View File

@ -536,7 +536,7 @@
[(drscheme:help-context-term) [(drscheme:help-context-term)
(let* ([m (get-module)] (let* ([m (get-module)]
[m (and m (pair? m) (pair? (cdr m)) (cadr m))] [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))]) [m (and m (cadr m))])
(if m (if m
(format "L:~a" m) (format "L:~a" m)