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

make pkg-links: fix to allo "racket" as a dependency

Browse Source 
Probably only the "base" package should rely on a "racket" version,
while other packages should rely on a "base" version.
This commit is contained in:
Matthew Flatt 2013-11-30 20:17:09 -07:00
parent 836f4cab20
commit d48a75eddf
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/src/link-all.rkt
View File

@ -147,7 +147,8 @@
(define all-pkgs
(let loop ([all-pkgs pkgs] [pkgs pkgs])
(define new-pkgs
(for/fold ([new-pkgs (set)]) ([pkg-name (in-set pkgs)])
(for/fold ([new-pkgs (set)]) ([pkg-name (in-set pkgs)]
#:unless (equal? pkg-name "racket"))
(define dir (hash-ref found pkg-name #f))
(unless dir
(error 'link-all "requested package not available: ~s" pkg-name))
@ -162,7 +163,8 @@
new-pkgs
(for/set ([dep (in-list deps)]
#:unless (or (set-member? all-pkgs dep)
(set-member? pkgs dep)))
(set-member? pkgs dep)
(equal? dep "racket")))
dep))))
(if (set-empty? new-pkgs)
all-pkgs