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

Continue fixing PR14175 by looking at all links files

Browse Source 
original commit: 8e2622857f
This commit is contained in:
Jay McCarthy 2013-11-19 14:20:59 -07:00
parent f35ba28b1f
commit b94fd95bbf
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
pkgs/compiler-pkgs/compiler-lib/compiler/commands/test.rkt
View File

@ -134,19 +134,21 @@
(struct col (name path) #:transparent) (struct col (name path) #:transparent)
(define (get-linked user? version?) (define (get-linked file user? version?)
(define version-re (define version-re
(and version? (and version?
(regexp-quote (version)))) (regexp-quote (version))))
(append (append
(for/list ([c+p (for/list ([c+p
(in-list (in-list
(links #:user? user? #:version-regexp version-re #:with-path? #t))]) (links #:file file #:user? user? #:version-regexp version-re
#:with-path? #t))])
(col (car c+p) (col (car c+p)
(cdr c+p))) (cdr c+p)))
(for/list ([cp (for/list ([cp
(in-list (in-list
(links #:root? #t #:user? user? #:version-regexp version-re))] (links #:file file #:user? user? #:version-regexp version-re
#:root? #t))]
#:when (directory-exists? cp) #:when (directory-exists? cp)
[collection (directory-list cp)] [collection (directory-list cp)]
#:when (directory-exists? (build-path cp collection))) #:when (directory-exists? (build-path cp collection)))
@ -164,9 +166,10 @@
#:when (directory-exists? (build-path cp collection))) #:when (directory-exists? (build-path cp collection)))
(col (path->string collection) (col (path->string collection)
(build-path cp collection))) (build-path cp collection)))
(for*/list ([user? (in-list '(#t #f))] (for*/list ([file (in-list (current-library-collection-links))]
[user? (in-list '(#t #f))]
[version? (in-list '(#t #f))]) [version? (in-list '(#t #f))])
(get-linked user? version?))))) (get-linked file user? version?)))))
;; This should be in Racket somewhere and return all the collection ;; This should be in Racket somewhere and return all the collection
;; paths, rather than just the first as collection-path does. ;; paths, rather than just the first as collection-path does.