steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix enumerating fully qualified paths by calling normalize-path first

db4
Doug Coleman 2009-10-15 00:12:11 -05:00
parent be84ac46d6
commit 0dc734195c
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/io/directories/search/search.factor
View File

@ -1,16 +1,16 @@
! Copyright (C) 2008 Doug Coleman. ! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays continuations deques dlists fry USING: accessors arrays assocs continuations deques dlists fry
io.directories io.files io.files.info io.pathnames kernel io.backend io.directories io.files.info io.pathnames kernel
sequences system vocabs.loader locals math namespaces locals math sequences sorting system unicode.case vocabs.loader ;
sorting assocs calendar threads io math.parser unicode.case ;
IN: io.directories.search IN: io.directories.search
: qualified-directory-entries ( path -- seq ) : qualified-directory-entries ( path -- seq )
dup directory-entries normalize-path
[ [ append-path ] change-name ] with map ; dup directory-entries [ [ append-path ] change-name ] with map ;
: qualified-directory-files ( path -- seq ) : qualified-directory-files ( path -- seq )
normalize-path
dup directory-files [ append-path ] with map ; dup directory-files [ append-path ] with map ;
: with-qualified-directory-files ( path quot -- ) : with-qualified-directory-files ( path quot -- )