From a43790444907e778355b3d49e392a7d754efe11f Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Tue, 13 May 2008 18:07:31 -0500
Subject: [PATCH] io.unix.files: update open-read

---
 extra/io/unix/files/files.factor | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/extra/io/unix/files/files.factor b/extra/io/unix/files/files.factor
index 835b14e66d..d30e5c93a5 100755
--- 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> ;