mason.disk: Fix usage of word

diff --git a/extra/mason/disk/disk.factor b/extra/mason/disk/disk.factor
index 88b0414fe4c91ae5d4dc3cdd5e27bf1b2c914734..4e4f24b7afa9668f6adc62042ba7d8b7e36811a9 100644 (file)
--- a/extra/mason/disk/disk.factor
+++ b/extra/mason/disk/disk.factor
@@ -8,8 +8,7 @@ IN: mason.disk
 
 : sufficient-disk-space? ( -- ? )
     current-directory get find-mount-point-info
-    file-system-info available-space>>
-    1 Gi > ;
+    available-space>> 1 Gi > ;
 
 : check-disk-space ( -- )
     sufficient-disk-space? [
@@ -26,4 +25,4 @@ IN: mason.disk
     "%0.2fGi used, %0.2fGi avail, %0.2fGi total, %0.2f%% free" sprintf ;
 
 : disk-usage ( -- string )
-    builds-dir get path>disk-usage ;
\ No newline at end of file
+    builds-dir get path>disk-usage ;