From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 3 Jan 2020 21:18:14 +0000 (-0600)
Subject: mason.disk: Fix usage of word
X-Git-Tag: 0.99~3603
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=894bab914e0d941c3bdf3b3e391c040d216f6ddd

mason.disk: Fix usage of word
---

diff --git a/extra/mason/disk/disk.factor b/extra/mason/disk/disk.factor
index 88b0414fe4..4e4f24b7af 100644
--- 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 ;