io.unix.files: update open-read

2008-05-13 18:07:31 -05:00 · 2008-05-13 18:07:31 -05:00 · a437904449
parent 6eb3b6b4f7
commit a437904449
1 changed files with 1 additions and 2 deletions
--- a/extra/io/unix/files/files.factor
+++ b/extra/io/unix/files/files.factor
@ -17,8 +17,7 @@ M: unix cd ( path -- )

 : read-flags O_RDONLY ; inline

-: open-read ( path -- fd )
-    O_RDONLY file-mode open dup io-error ;
+: open-read ( path -- fd ) O_RDONLY file-mode open-file ;

 M: unix (file-reader) ( path -- stream )
    open-read <input-port> ;