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

move >file-system-info

db4
Doug Coleman 2008-10-21 23:43:36 -05:00
parent cfd1978aaa
commit b9e043effe
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/unix/statfs/statfs.factor
View File

@ -14,6 +14,8 @@ HOOK: mounted-struct>mounted os ( byte-array -- mounted )
TUPLE: file-system-info root-directory total-free-size total-size ;
HOOK: >file-system-info os ( struct -- statfs )
: mounted ( -- array )
mounted* [ mounted-struct>mounted ] map ;

3
core/io/files/files.factor
View File

@ -188,9 +188,6 @@ TUPLE: file-system-info mount-on free-space ;
HOOK: file-system-info os ( path -- file-system-info )
HOOK: >file-system-info os ( struct -- statfs )
<PRIVATE
HOOK: cd io-backend ( path -- )