diff --git a/basis/io/unix/files/netbsd/netbsd.factor b/basis/io/unix/files/netbsd/netbsd.factor index c200331db5..23717b41a4 100644 --- a/basis/io/unix/files/netbsd/netbsd.factor +++ b/basis/io/unix/files/netbsd/netbsd.factor @@ -4,7 +4,7 @@ USING: alien.syntax kernel unix.stat math unix combinators system io.backend accessors alien.c-types io.encodings.utf8 alien.strings unix.types io.unix.files io.files unix.statvfs.netbsd unix.getfsstat.netbsd -grouping sequences ; +grouping sequences io.encodings.utf8 ; IN: io.unix.files.netbsd TUPLE: netbsd-file-system-info < unix-file-system-info @@ -40,13 +40,13 @@ M: netbsd statvfs>file-system-info ( file-system-info statvfs -- file-system-inf [ statvfs-f_namemax >>name-max ] [ statvfs-f_owner >>owner ] ! [ statvfs-f_spare >>spare ] - [ statvfs-f_fstypename alien>native-string >>type ] - [ statvfs-f_mntonname alien>native-string >>mount-point ] - [ statvfs-f_mntfromname alien>native-string >>device-name ] + [ statvfs-f_fstypename utf8 alien>string >>type ] + [ statvfs-f_mntonname utf8 alien>string >>mount-point ] + [ statvfs-f_mntfromname utf8 alien>string >>device-name ] } cleave ; M: netbsd file-systems ( -- array ) f 0 0 getvfsstat dup io-error "statvfs" dup dup length 0 getvfsstat io-error "statvfs" heap-size group - [ statvfs-f_mntonname alien>native-string file-system-info ] map ; + [ statvfs-f_mntonname utf8 alien>string file-system-info ] map ;