From 27af645048a37dbe9147720bdcb26512d07d9fcd Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 31 Aug 2009 11:35:52 -0500 Subject: [PATCH] fix file-systems on freebsd --- 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 079dac23a9..9d9d5b8834 100644 --- a/basis/io/files/info/unix/freebsd/freebsd.factor +++ b/basis/io/files/info/unix/freebsd/freebsd.factor @@ -40,7 +40,7 @@ M: freebsd statfs>file-system-info ( file-system-info statvfs -- file-system-inf } cleave ; M: freebsd file-system-statvfs ( path -- byte-array ) - \ statvfs [ \ statvfs io-error ] keep ; + \ statvfs [ statvfs io-error ] keep ; 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 ) f 0 0 getfsstat dup io-error \ statfs dup dup length 0 getfsstat io-error - statfs heap-size group + \ statfs heap-size group [ f_mntonname>> alien>native-string file-system-info ] map ;