use link-info instead of file-info

diff --git a/basis/io/directories/search/search.factor b/basis/io/directories/search/search.factor
index 38d8ec957e4510e52efd5ec5b3d0e7ca9cf78133..236da09489903acf0ac39fee167c19034774df2c 100755 (executable)
--- a/basis/io/directories/search/search.factor
+++ b/basis/io/directories/search/search.factor
@@ -83,15 +83,15 @@ ERROR: file-not-found ;
     ] with-directory ; inline
 
 : 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 [
                 directory-size
             ] [
-                file-info size-on-disk>>
+                link-info size-on-disk>>
             ] if
         ] { } map>assoc
     ] with-qualified-directory-entries sort-values ;