From 99d760e08f7ca69df457517ea37244763e79aa78 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 4 Jan 2020 13:40:26 -0600 Subject: [PATCH] mason.disk: fix word name --- extra/mason/disk/disk.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/extra/mason/disk/disk.factor b/extra/mason/disk/disk.factor index 4e4f24b7af..97e48ff88d 100644 --- 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