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

pkg/lib: fix `get-pkg-content'

Browse Source 
When discovering modules, handle the case that a directory
name doesn't work as a collection name.
This commit is contained in:
Matthew Flatt 2013-04-22 08:39:17 -06:00
parent 4cc320e49d
commit 1fa80c84e0
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/pkg/lib.rkt
View File

@ -1712,11 +1712,13 @@
#:when (file-exists? f) #:when (file-exists? f)
#:when (regexp-match? #rx#"[.](rkt|ss)$" (path->bytes f)) #:when (regexp-match? #rx#"[.](rkt|ss)$" (path->bytes f))
#:when (let-values ([(base name dir?) (split-path f)]) #:when (let-values ([(base name dir?) (split-path f)])
(not (eq? 'relative base)))) (not (eq? 'relative base)))
(define m (apply ~a [m (in-value
(apply ~a
#:separator "/" #:separator "/"
(map path-element->string (map path-element->string
(explode-path f)))) (explode-path f))))]
#:when (module-path? `(lib ,m)))
;; normalize the path: ;; normalize the path:
(collapse-module-path `(lib ,m) dummy))))) (collapse-module-path `(lib ,m) dummy)))))