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

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 ;

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 -- )