diff --git a/basis/io/files/info/unix/freebsd/freebsd.factor b/basis/io/files/info/unix/freebsd/freebsd.factor index 12f04db881..baae14a30f 100644 --- a/basis/io/files/info/unix/freebsd/freebsd.factor +++ b/basis/io/files/info/unix/freebsd/freebsd.factor @@ -4,7 +4,7 @@ USING: accessors alien.c-types alien.syntax combinators io.backend io.files io.files.info io.files.unix kernel math system unix unix.statfs.freebsd unix.statvfs.freebsd unix.getfsstat.freebsd sequences grouping alien.strings io.encodings.utf8 unix.types -arrays io.files.info.unix classes.struct ; +arrays io.files.info.unix classes.struct struct-arrays ; IN: io.files.info.unix.freebsd TUPLE: freebsd-file-system-info < unix-file-system-info @@ -50,6 +50,6 @@ M: freebsd statvfs>file-system-info ( file-system-info statvfs -- file-system-in M: freebsd file-systems ( -- array ) f 0 0 getfsstat dup io-error - \ statfs + \ statfs [ dup length 0 getfsstat io-error ] [ [ f_mntonname>> utf8 alien>string file-system-info ] map ] bi ;