basis: removing unnecessary method stack effects.

[factor.git] / basis / io / files / info / windows / windows.factor

diff --git a/basis/io/files/info/windows/windows.factor b/basis/io/files/info/windows/windows.factor
index 88fa83a745ac1006105755fe1968d7a74d0a7820..731f815b402b474d26948c27cb2a65b8354936f5 100644 (file)
--- a/basis/io/files/info/windows/windows.factor
+++ b/basis/io/files/info/windows/windows.factor
@@ -89,12 +89,12 @@ TUPLE: windows-file-info < file-info-tuple attributes ;
         drop find-first-file-stat WIN32_FIND_DATA>file-info
     ] if ;
 
-M: windows file-info ( path -- info )
+M: windows file-info
     normalize-path
     [ get-file-information-stat ]
     [ set-windows-size-on-disk ] bi ;
 
-M: windows link-info ( path -- info )
+M: windows link-info
     file-info ;
 
 : file-executable-type ( path -- executable/f )
@@ -168,7 +168,7 @@ ERROR: not-absolute-path ;
 
 PRIVATE>
 
-M: windows file-system-info ( path -- file-system-info )
+M: windows file-system-info
     normalize-path root-directory (file-system-info) ;
 
 CONSTANT: names-buf-length 16384
@@ -216,7 +216,7 @@ CONSTANT: names-buf-length 16384
 
 ! Can error with T{ windows-error f 21 "The device is not ready." }
 ! if there is a D: that is not ready, for instance. Ignore these drives.
-M: windows file-systems ( -- array )
+M: windows file-systems
     find-volumes [ volume>paths ] map concat [
         [ (file-system-info) ] [ 2drop f ] recover
     ] map sift ;