include mount point in file-system-info

basis/unix/statfs/linux/linux.factor

@@ -33,4 +33,7 @@ frequency pass-number ;
     [ mtab-csv>mtab-entry ] map ;
 
 M: linux mounted
-    parse-mtab [ mount-point>> file-system-info ] map ;
+    parse-mtab [
+        mount-point>>
+        [ file-system-info ] keep >>name
+    ] map ;

basis/unix/statfs/statfs.factor

@@ -4,11 +4,6 @@ USING: sequences system vocabs.loader combinators accessors
 kernel math.order sorting ;
 IN: unix.statfs
 
-TUPLE: mounted block-size io-size blocks blocks-free
-blocks-available files files-free file-system-id owner type
-flags filesystem-subtype file-system-type-name mount-on
-mount-from ;
-
 TUPLE: file-system-info root-directory total-free-size total-size ;
 
 HOOK: >file-system-info os ( struct -- statfs )

core/io/files/files.factor

@@ -184,7 +184,7 @@ SYMBOL: +unknown+
 
 ! File-system
 
-TUPLE: file-system-info mount-on free-space ;
+TUPLE: file-system-info name free-space ;
 
 HOOK: file-system-info os ( path -- file-system-info )