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

Missing in-list calls.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2015-08-16 16:09:11 -04:00
parent 1d9e2003ac
commit 5ef6a2662d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler-lib/compiler/commands/test.rkt
View File

@ -643,7 +643,7 @@
(links #:file file #:user? user? #:version-regexp version-re (links #:file file #:user? user? #:version-regexp version-re
#:root? #t))] #:root? #t))]
#:when (directory-exists? cp) #:when (directory-exists? cp)
[collection (directory-list cp)] [collection (in-list (directory-list cp))]
#: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)))))
@ -655,7 +655,7 @@
(append* (append*
(for/list ([cp (current-library-collection-paths)] (for/list ([cp (current-library-collection-paths)]
#:when (directory-exists? cp) #:when (directory-exists? cp)
[collection (directory-list cp)] [collection (in-list (directory-list cp))]
#: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)))