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

fix file-systems on freebsd

db4
Doug Coleman 2009-08-31 11:35:52 -05:00
parent 736f78dfb5
commit 27af645048
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -40,7 +40,7 @@ M: freebsd statfs>file-system-info ( file-system-info statvfs -- file-system-inf
} cleave ; } cleave ;
M: freebsd file-system-statvfs ( path -- byte-array ) M: freebsd file-system-statvfs ( path -- byte-array )
\ statvfs <struct> [ \ statvfs io-error ] keep ; \ statvfs <struct> [ statvfs io-error ] keep ;
M: freebsd statvfs>file-system-info ( file-system-info statvfs -- file-system-info ) M: freebsd statvfs>file-system-info ( file-system-info statvfs -- file-system-info )
{ {
@ -51,5 +51,5 @@ M: freebsd statvfs>file-system-info ( file-system-info statvfs -- file-system-in
M: freebsd file-systems ( -- array ) M: freebsd file-systems ( -- array )
f 0 0 getfsstat dup io-error f 0 0 getfsstat dup io-error
\ statfs <struct> dup dup length 0 getfsstat io-error \ statfs <struct> dup dup length 0 getfsstat io-error
statfs heap-size group \ statfs heap-size group
[ f_mntonname>> alien>native-string file-system-info ] map ; [ f_mntonname>> alien>native-string file-system-info ] map ;