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

raco setup: fix dependency checker to distinguish package name from source

Browse Source 
Closes PR 14095
This commit is contained in:
Matthew Flatt 2013-10-15 12:16:06 -06:00
parent efaa5bd181
commit bbf446b0f4
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
racket/collects/setup/private/pkg-deps.rkt
View File

@ -2,6 +2,7 @@
(require syntax/modread (require syntax/modread
syntax/modcollapse syntax/modcollapse
pkg/lib pkg/lib
pkg/name
racket/set racket/set
racket/string racket/string
racket/list racket/list
@ -93,8 +94,13 @@
(unless deps+build-deps (unless deps+build-deps
(hash-set! skip-pkgs pkg #t) (hash-set! skip-pkgs pkg #t)
(setup-printf #f "package declares no dependencies: ~s" pkg)) (setup-printf #f "package declares no dependencies: ~s" pkg))
(define deps (if deps+build-deps (cdr deps+build-deps) '())) (define deps (if deps+build-deps
(define runtime-deps (if deps+build-deps (list->set (car deps+build-deps)) (set))) (filter-map package-source->name (cdr deps+build-deps))
'()))
(define runtime-deps (if deps+build-deps
(list->set (filter-map package-source->name
(car deps+build-deps)))
(set)))
(define implies (define implies
(list->set (let ([i (get-info/full dir #:namespace metadata-ns)]) (list->set (let ([i (get-info/full dir #:namespace metadata-ns)])
(if i (if i