list file-systems with statfs instead of statvfs on openbsd

Doug Coleman 2009-09-12 21:05:26 -05:00
parent e6c551a652
commit 3d02802521
1 changed files with 1 additions and 1 deletions

View File

@ -49,6 +49,6 @@ M: openbsd statvfs>file-system-info ( file-system-info statvfs -- file-system-in
M: openbsd file-systems ( -- seq )
f 0 0 getfsstat dup io-error
<statvfs-array>
<statfs-array>
[ dup byte-length 0 getfsstat io-error ]
[ [ f_mntonname>> utf8 alien>string file-system-info ] { } map-as ] bi ;