fix io.directories.search on windows

db4
Doug Coleman 2009-10-15 22:00:46 -05:00
parent 58557e41bf
commit 42751cb148
1 changed files with 2 additions and 2 deletions

View File

@ -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 -- )