mason.disk: fix word name

diff --git a/extra/mason/disk/disk.factor b/extra/mason/disk/disk.factor
index 4e4f24b7afa9668f6adc62042ba7d8b7e36811a9..97e48ff88d149e5024c1600e052e2147cc127ec0 100644 (file)
--- a/extra/mason/disk/disk.factor
+++ b/extra/mason/disk/disk.factor
@@ -7,8 +7,8 @@ IN: mason.disk
 : Gi ( n -- gibibits ) 30 2^ * ; inline
 
 : sufficient-disk-space? ( -- ? )
-    current-directory get find-mount-point-info
-    available-space>> 1 Gi > ;
+    current-directory get find-mount-point
+    file-system-info available-space>> 1 Gi > ;
 
 : check-disk-space ( -- )
     sufficient-disk-space? [
@@ -18,7 +18,7 @@ IN: mason.disk
 : Gi-str ( n -- string ) 1 Gi /f ;
 
 : path>disk-usage ( path -- string )
-    find-mount-point-info
+    find-mount-point file-system-info
     [ used-space>> ] [ available-space>> ] [ total-space>> ] tri
     2dup /f 100 *
     [ [ Gi-str ] tri@ ] dip