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

use link-info instead of file-info

db4
Doug Coleman 2009-04-20 17:50:26 -05:00
parent bd6eb42d0f
commit bf0b1e63c8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -83,15 +83,15 @@ ERROR: file-not-found ;
] with-directory ; inline ] with-directory ; inline
: directory-size ( path -- n ) : directory-size ( path -- n )
0 swap t [ file-info size-on-disk>> + ] each-file ; 0 swap t [ link-info size-on-disk>> + ] each-file ;
: path>sizes ( path -- assoc ) : directory-usage ( path -- assoc )
[ [
[ [
[ name>> dup ] [ directory? ] bi [ [ name>> dup ] [ directory? ] bi [
directory-size directory-size
] [ ] [
file-info size-on-disk>> link-info size-on-disk>>
] if ] if
] { } map>assoc ] { } map>assoc
] with-qualified-directory-entries sort-values ; ] with-qualified-directory-entries sort-values ;