Merge branch 'master' into new_codegen
commit
dc74d1a9b6
|
@ -14,6 +14,8 @@ HOOK: mounted-struct>mounted os ( byte-array -- mounted )
|
||||||
|
|
||||||
TUPLE: file-system-info root-directory total-free-size total-size ;
|
TUPLE: file-system-info root-directory total-free-size total-size ;
|
||||||
|
|
||||||
|
HOOK: >file-system-info os ( struct -- statfs )
|
||||||
|
|
||||||
: mounted ( -- array )
|
: mounted ( -- array )
|
||||||
mounted* [ mounted-struct>mounted ] map ;
|
mounted* [ mounted-struct>mounted ] map ;
|
||||||
|
|
||||||
|
|
|
@ -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 ( path -- file-system-info )
|
||||||
|
|
||||||
HOOK: >file-system-info os ( struct -- statfs )
|
|
||||||
|
|
||||||
|
|
||||||
<PRIVATE
|
<PRIVATE
|
||||||
|
|
||||||
HOOK: cd io-backend ( path -- )
|
HOOK: cd io-backend ( path -- )
|
||||||
|
|
Loading…
Reference in New Issue