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

fix parsing of planet paths to not add .ss in compact string form

Browse Source 
svn: r16056
This commit is contained in:
Matthew Flatt 2009-09-17 22:24:51 +00:00
parent 1c129b829b
commit 70317a24a8
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/planet/parsereq.ss
View File

@ -72,7 +72,9 @@
[fullspec (pkg-spec->full-pkg-spec pkg-spec stx)] [fullspec (pkg-spec->full-pkg-spec pkg-spec stx)]
[final-path (if (string=? tail "") [final-path (if (string=? tail "")
"main.ss" "main.ss"
(string-append tail ".ss"))]) (if (regexp-match #rx"[.]" tail)
tail
(string-append tail ".ss")))])
(make-request fullspec final-path '())))] (make-request fullspec final-path '())))]
[_ (raise-syntax-error 'require (format "Illegal PLaneT invocation: ~e" (cdr spec)) stx)])) [_ (raise-syntax-error 'require (format "Illegal PLaneT invocation: ~e" (cdr spec)) stx)]))