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

setup/link: fix collection-root results for version regexps

Browse Source
This commit is contained in:
Matthew Flatt 2012-12-28 11:56:57 -07:00
parent 480ae5e262
commit 0a708b040a
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/setup/link.rkt
View File

@ -196,7 +196,9 @@
(if root? (if root?
;; Return root paths: ;; Return root paths:
(for/list ([e (in-list new-table)] (for/list ([e (in-list new-table)]
#:when (eq? 'root (car e))) #:when (eq? 'root (car e))
#:when (or (null? (cddr e))
(regexp-match? (caddr e) (version))))
(simplify (cadr e))) (simplify (cadr e)))
;; Return list of collections mapped for this version: ;; Return list of collections mapped for this version:
(let ([ht (make-hash)]) (let ([ht (make-hash)])