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

sort-by-slots => sort-by

db4
Slava Pestov 2009-04-18 16:44:34 -05:00
parent 0ca924124a
commit 2d8d7f120f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/tools/files/files.factor
View File

@ -75,7 +75,7 @@ M: object file-spec>string ( file-listing spec -- string )
: list-files-slow ( listing-tool -- array ) : list-files-slow ( listing-tool -- array )
[ path>> ] [ sort>> ] [ specs>> ] tri '[ [ path>> ] [ sort>> ] [ specs>> ] tri '[
[ dup name>> file-info file-listing boa ] map [ dup name>> file-info file-listing boa ] map
_ [ sort-by-slots ] when* _ [ sort-by ] when*
[ _ [ file-spec>string ] with map ] map [ _ [ file-spec>string ] with map ] map
] with-directory-entries ; inline ] with-directory-entries ; inline