steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

mason.disk: fix word name

fix-linux
Doug Coleman 2020-01-04 13:40:26 -06:00
parent 9beeedfe18
commit 16135ef8d6
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/mason/disk/disk.factor
View File

@ -7,8 +7,8 @@ IN: mason.disk
: Gi ( n -- gibibits ) 30 2^ * ; inline : Gi ( n -- gibibits ) 30 2^ * ; inline
: sufficient-disk-space? ( -- ? ) : sufficient-disk-space? ( -- ? )
current-directory get find-mount-point-info current-directory get find-mount-point
available-space>> 1 Gi > ; file-system-info available-space>> 1 Gi > ;
: check-disk-space ( -- ) : check-disk-space ( -- )
sufficient-disk-space? [ sufficient-disk-space? [
@ -18,7 +18,7 @@ IN: mason.disk
: Gi-str ( n -- string ) 1 Gi /f ; : Gi-str ( n -- string ) 1 Gi /f ;
: path>disk-usage ( path -- string ) : path>disk-usage ( path -- string )
find-mount-point-info find-mount-point file-system-info
[ used-space>> ] [ available-space>> ] [ total-space>> ] tri [ used-space>> ] [ available-space>> ] [ total-space>> ] tri
2dup /f 100 * 2dup /f 100 *
[ [ Gi-str ] tri@ ] dip [ [ Gi-str ] tri@ ] dip