mason.disk: Fix usage of word

fix-linux
Doug Coleman 2020-01-03 15:18:14 -06:00
parent 0625b85b47
commit 894bab914e
1 changed files with 2 additions and 3 deletions

View File

@ -8,8 +8,7 @@ IN: mason.disk
: sufficient-disk-space? ( -- ? ) : sufficient-disk-space? ( -- ? )
current-directory get find-mount-point-info current-directory get find-mount-point-info
file-system-info available-space>> available-space>> 1 Gi > ;
1 Gi > ;
: check-disk-space ( -- ) : check-disk-space ( -- )
sufficient-disk-space? [ sufficient-disk-space? [