basis: removing unnecessary method stack effects.

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

diff --git a/basis/io/files/unix/unix.factor b/basis/io/files/unix/unix.factor
index 47aa5bb34d021897eecbe3ba050961603c8d814f..09743b144e3f64e2dc2861ba2a5b3d78d16039f4 100644 (file)
--- a/basis/io/files/unix/unix.factor
+++ b/basis/io/files/unix/unix.factor
@@ -14,16 +14,16 @@ IN: io.files.unix
         ] [ rethrow ] if
     ] recover ;
 
-M: unix cwd ( -- path )
+M: unix cwd
     4096 (cwd) ;
 
-M: unix cd ( path -- ) [ chdir ] unix-system-call drop ;
+M: unix cd [ chdir ] unix-system-call drop ;
 
 CONSTANT: read-flags flags{ O_RDONLY }
 
 : open-read ( path -- fd ) read-flags file-mode open-file ;
 
-M: unix (file-reader) ( path -- stream )
+M: unix (file-reader)
     open-read <fd> init-fd <input-port> ;
 
 CONSTANT: write-flags flags{ O_WRONLY O_CREAT O_TRUNC }
@@ -31,7 +31,7 @@ CONSTANT: write-flags flags{ O_WRONLY O_CREAT O_TRUNC }
 : open-write ( path -- fd )
     write-flags file-mode open-file ;
 
-M: unix (file-writer) ( path -- stream )
+M: unix (file-writer)
     open-write <fd> init-fd <output-port> ;
 
 CONSTANT: append-flags flags{ O_WRONLY O_APPEND O_CREAT }
@@ -42,7 +42,7 @@ CONSTANT: append-flags flags{ O_WRONLY O_APPEND O_CREAT }
         dup 0 SEEK_END [ lseek ] unix-system-call drop
     ] with-destructors ;
 
-M: unix (file-appender) ( path -- stream )
+M: unix (file-appender)
     open-append <fd> init-fd <output-port> ;
 
 M: unix home "HOME" os-env ;