fix io.directories.search on windows
parent
58557e41bf
commit
42751cb148
|
@ -6,11 +6,11 @@ locals math sequences sorting system unicode.case vocabs.loader ;
|
||||||
IN: io.directories.search
|
IN: io.directories.search
|
||||||
|
|
||||||
: qualified-directory-entries ( path -- seq )
|
: qualified-directory-entries ( path -- seq )
|
||||||
normalize-path
|
(normalize-path)
|
||||||
dup directory-entries [ [ 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
|
(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 -- )
|
||||||
|
|
Loading…
Reference in New Issue