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

Merge branch 'master' of git://factorcode.org/git/factor

db4
Slava Pestov 2008-12-03 03:34:38 -06:00
parent 4eacebe3a3 68757f0a99
commit 46b0df1e18
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/io/unix/files/files.factor
View File

@ -80,7 +80,7 @@ TUPLE: unix-file-system-info < file-system-info
block-size preferred-block-size block-size preferred-block-size
blocks blocks-free blocks-available blocks blocks-free blocks-available
files files-free files-available files files-free files-available
name-max flags id id0 id1 ; name-max flags id ;
HOOK: new-file-system-info os ( -- file-system-info ) HOOK: new-file-system-info os ( -- file-system-info )
@ -108,8 +108,6 @@ M: unix statvfs>file-system-info drop ;
[ dup [ blocks-free>> ] [ block-size>> ] bi * >>free-space drop ] [ dup [ blocks-free>> ] [ block-size>> ] bi * >>free-space drop ]
[ dup [ blocks>> ] [ block-size>> ] bi * >>total-space drop ] [ dup [ blocks>> ] [ block-size>> ] bi * >>total-space drop ]
[ dup [ total-space>> ] [ free-space>> ] bi - >>used-space drop ] [ dup [ total-space>> ] [ free-space>> ] bi - >>used-space drop ]
[ dup id>> 2 c-uint-array> first2 [ >>id0 ] [ >>id1 ] bi* drop ]
[ f >>id drop ]
[ ] [ ]
} cleave ; } cleave ;