From 42751cb148bf5a3f0b8969bf1134c4e6a2c14202 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 15 Oct 2009 22:00:46 -0500 Subject: [PATCH] fix io.directories.search on windows --- basis/io/directories/search/search.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/io/directories/search/search.factor b/basis/io/directories/search/search.factor index 93d4d0146c..0c947e5bc6 100755 --- a/basis/io/directories/search/search.factor +++ b/basis/io/directories/search/search.factor @@ -6,11 +6,11 @@ locals math sequences sorting system unicode.case vocabs.loader ; IN: io.directories.search : qualified-directory-entries ( path -- seq ) - normalize-path + (normalize-path) dup directory-entries [ [ append-path ] change-name ] with map ; : qualified-directory-files ( path -- seq ) - normalize-path + (normalize-path) dup directory-files [ append-path ] with map ; : with-qualified-directory-files ( path quot -- )