From 0dc734195c29aec58bce79b1751150ecc9c67f53 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 15 Oct 2009 00:12:11 -0500
Subject: [PATCH] fix enumerating fully qualified paths by calling
normalize-path first
---
basis/io/directories/search/search.factor | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/basis/io/directories/search/search.factor b/basis/io/directories/search/search.factor
index 3fbf09a3c3..93d4d0146c 100755
--- a/basis/io/directories/search/search.factor
+++ b/basis/io/directories/search/search.factor
@@ -1,16 +1,16 @@
! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays continuations deques dlists fry
-io.directories io.files io.files.info io.pathnames kernel
-sequences system vocabs.loader locals math namespaces
-sorting assocs calendar threads io math.parser unicode.case ;
+USING: accessors arrays assocs continuations deques dlists fry
+io.backend io.directories io.files.info io.pathnames kernel
+locals math sequences sorting system unicode.case vocabs.loader ;
IN: io.directories.search
: qualified-directory-entries ( path -- seq )
- dup directory-entries
- [ [ append-path ] change-name ] with map ;
+ normalize-path
+ dup directory-entries [ [ append-path ] change-name ] with map ;
: qualified-directory-files ( path -- seq )
+ normalize-path
dup directory-files [ append-path ] with map ;
: with-qualified-directory-files ( path quot -- )