mason.disk: Fix usage of word
parent
0f0f5d6615
commit
64cde391fd
|
@ -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 ;
|
||||
builds-dir get path>disk-usage ;
|
||||
|
|
Loading…
Reference in New Issue