basis: removing unnecessary method stack effects.

[factor.git] / basis / io / files / info / unix / linux / linux.factor

diff --git a/basis/io/files/info/unix/linux/linux.factor b/basis/io/files/info/unix/linux/linux.factor
index 52948eccc76be2435cba7da0eb949563f22a4d74..5a2b07f05433cd43a06be6d41df75bdb4e9286d7 100644 (file)
--- a/basis/io/files/info/unix/linux/linux.factor
+++ b/basis/io/files/info/unix/linux/linux.factor
@@ -13,10 +13,10 @@ namelen ;
 
 M: linux new-file-system-info linux-file-system-info new ;
 
-M: linux file-system-statfs ( path -- statfs )
+M: linux file-system-statfs
     \ statfs64 <struct> [ statfs64 io-error ] keep ;
 
-M: linux statfs>file-system-info ( file-system-info statfs -- file-system-info' )
+M: linux statfs>file-system-info
     {
         [ f_type>> >>type ]
         [ f_bsize>> >>block-size ]
@@ -31,10 +31,10 @@ M: linux statfs>file-system-info ( file-system-info statfs -- file-system-info'
         ! [ statfs64-f_spare >>spare ]
     } cleave ;
 
-M: linux file-system-statvfs ( path -- statvfs )
+M: linux file-system-statvfs
     \ statvfs64 <struct> [ statvfs64 io-error ] keep ;
 
-M: linux statvfs>file-system-info ( file-system-info statfs -- file-system-info' )
+M: linux statvfs>file-system-info
     {
         [ f_flag>> >>flags ]
         [ f_namemax>> >>name-max ]
@@ -90,7 +90,7 @@ M: linux mount-points
 M: linux file-systems
     parse-mtab [ mtab-entry>file-system-info ] map sift ;
 
-M: linux file-system-info ( path -- file-system-info )
+M: linux file-system-info
     normalize-path [ (file-system-info) ] [ ] bi
     find-mount-point
     {