io.files.info.unix.linux: use string>csv instead.

db4
John Benediktsson 2013-03-15 06:40:24 -07:00
parent 779721c737
commit d11805228f
1 changed files with 2 additions and 2 deletions

View File

@ -1,7 +1,7 @@
! Copyright (C) 2008 Doug Coleman. ! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien.c-types alien.syntax combinators csv USING: accessors alien.c-types alien.syntax combinators csv
io.backend io.encodings.utf8 io.files io.files.info io.streams.string io.backend io.encodings.utf8 io.files io.files.info
io.files.unix kernel math.order namespaces sequences sorting io.files.unix kernel math.order namespaces sequences sorting
system unix unix.statfs.linux unix.statvfs.linux io.files.links system unix unix.statfs.linux unix.statvfs.linux io.files.links
arrays io.files.info.unix assocs io.pathnames unix.types arrays io.files.info.unix assocs io.pathnames unix.types
@ -50,7 +50,7 @@ frequency pass-number ;
[ first >>file-system-name ] [ first >>file-system-name ]
[ second >>mount-point ] [ second >>mount-point ]
[ third >>type ] [ third >>type ]
[ fourth <string-reader> csv first >>options ] [ fourth string>csv first >>options ]
[ 4 swap ?nth [ 0 ] unless* >>frequency ] [ 4 swap ?nth [ 0 ] unless* >>frequency ]
[ 5 swap ?nth [ 0 ] unless* >>pass-number ] [ 5 swap ?nth [ 0 ] unless* >>pass-number ]
} cleave ; } cleave ;