From 5ef6a2662d51831061e007ef2187d416bb34ffab Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Sun, 16 Aug 2015 16:09:11 -0400 Subject: [PATCH] Missing `in-list` calls. --- compiler-lib/compiler/commands/test.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler-lib/compiler/commands/test.rkt b/compiler-lib/compiler/commands/test.rkt index 1458f23499..b0d2f81661 100644 --- a/compiler-lib/compiler/commands/test.rkt +++ b/compiler-lib/compiler/commands/test.rkt @@ -643,7 +643,7 @@ (links #:file file #:user? user? #:version-regexp version-re #:root? #t))] #:when (directory-exists? cp) - [collection (directory-list cp)] + [collection (in-list (directory-list cp))] #:when (directory-exists? (build-path cp collection))) (col (path->string collection) (build-path cp collection))))) @@ -655,7 +655,7 @@ (append* (for/list ([cp (current-library-collection-paths)] #:when (directory-exists? cp) - [collection (directory-list cp)] + [collection (in-list (directory-list cp))] #:when (directory-exists? (build-path cp collection))) (col (path->string collection) (build-path cp collection)))