From d22a25a3ecb5a6e10c03622f229562685a06aa5a Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 31 Aug 2009 11:49:29 -0500 Subject: [PATCH] try to fix file-systems on a few platforms --- basis/io/files/info/unix/freebsd/freebsd.factor | 6 +++--- basis/io/files/info/unix/netbsd/netbsd.factor | 6 +++--- basis/io/files/info/unix/openbsd/openbsd.factor | 6 +++--- 3 files changed, 9 insertions(+), 9 deletions(-) diff --git a/basis/io/files/info/unix/freebsd/freebsd.factor b/basis/io/files/info/unix/freebsd/freebsd.factor index 9d9d5b8834..12f04db881 100644 --- a/basis/io/files/info/unix/freebsd/freebsd.factor +++ b/basis/io/files/info/unix/freebsd/freebsd.factor @@ -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 dup dup length 0 getfsstat io-error - \ statfs heap-size group - [ f_mntonname>> alien>native-string file-system-info ] map ; + \ statfs + [ dup length 0 getfsstat io-error ] + [ [ f_mntonname>> utf8 alien>string file-system-info ] map ] bi ; diff --git a/basis/io/files/info/unix/netbsd/netbsd.factor b/basis/io/files/info/unix/netbsd/netbsd.factor index 2d123afda3..4ba85bd305 100644 --- a/basis/io/files/info/unix/netbsd/netbsd.factor +++ b/basis/io/files/info/unix/netbsd/netbsd.factor @@ -47,6 +47,6 @@ M: netbsd statvfs>file-system-info ( file-system-info statvfs -- file-system-inf M: netbsd file-systems ( -- array ) f 0 0 getvfsstat dup io-error - \ statvfs dup dup length 0 getvfsstat io-error - \ statvfs heap-size group - [ f_mntonname>> utf8 alien>string file-system-info ] map ; + \ statvfs + [ dup length 0 getvfsstat io-error ] + [ [ f_mntonname>> utf8 alien>string file-system-info ] map ] bi ; diff --git a/basis/io/files/info/unix/openbsd/openbsd.factor b/basis/io/files/info/unix/openbsd/openbsd.factor index 6c334b8d62..c1a9347686 100644 --- a/basis/io/files/info/unix/openbsd/openbsd.factor +++ b/basis/io/files/info/unix/openbsd/openbsd.factor @@ -47,6 +47,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 - \ statfs dup dup length 0 getfsstat io-error - \ statfs heap-size group - [ f_mntonname>> alien>native-string file-system-info ] map ; + \ statfs + [ dup length 0 getvfsstat io-error ] + [ [ f_mntonname>> utf8 alien>string file-system-info ] map ] bi ; -- 2.34.1