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

move file-systems word to core

db4
Doug Coleman 2008-11-11 14:04:05 -06:00
parent bbaa8b95bd
commit 78ab09d8bb
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -8,8 +8,6 @@ TUPLE: file-system-info root-directory total-free-size total-size ;
HOOK: >file-system-info os ( struct -- statfs ) HOOK: >file-system-info os ( struct -- statfs )
HOOK: file-systems os ( -- array )
os { os {
{ linux [ "unix.statfs.linux" require ] } { linux [ "unix.statfs.linux" require ] }
{ macosx [ "unix.statfs.macosx" require ] } { macosx [ "unix.statfs.macosx" require ] }

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

@ -184,6 +184,8 @@ SYMBOL: +unknown+
! File-system ! File-system
HOOK: file-systems os ( -- array )
TUPLE: file-system-info device-name mount-point type free-space ; TUPLE: file-system-info device-name mount-point type free-space ;
HOOK: file-system-info os ( path -- file-system-info ) HOOK: file-system-info os ( path -- file-system-info )