From bce748ee81b332d9c34a73057a0f0f9e45cb3185 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Mon, 31 Aug 2009 12:49:09 -0500 Subject: [PATCH] fix newly introduced references to c-type-array --- basis/io/files/info/unix/freebsd/freebsd.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 ; -- 2.34.1