io.unix.files: update open-read
parent
6eb3b6b4f7
commit
a437904449
|
@ -17,8 +17,7 @@ M: unix cd ( path -- )
|
||||||
|
|
||||||
: read-flags O_RDONLY ; inline
|
: read-flags O_RDONLY ; inline
|
||||||
|
|
||||||
: open-read ( path -- fd )
|
: open-read ( path -- fd ) O_RDONLY file-mode open-file ;
|
||||||
O_RDONLY file-mode open dup io-error ;
|
|
||||||
|
|
||||||
M: unix (file-reader) ( path -- stream )
|
M: unix (file-reader) ( path -- stream )
|
||||||
open-read <input-port> ;
|
open-read <input-port> ;
|
||||||
|
|
Loading…
Reference in New Issue