io.unix.mmap: use open-file instead of open
parent
1342d0964c
commit
d3f924681b
|
@ -4,7 +4,7 @@ USING: alien io io.files kernel math system unix io.unix.backend
|
||||||
io.mmap ;
|
io.mmap ;
|
||||||
IN: io.unix.mmap
|
IN: io.unix.mmap
|
||||||
|
|
||||||
: open-r/w ( path -- fd ) O_RDWR file-mode open dup io-error ;
|
: open-r/w ( path -- fd ) O_RDWR file-mode open-file ;
|
||||||
|
|
||||||
: mmap-open ( length prot flags path -- alien fd )
|
: mmap-open ( length prot flags path -- alien fd )
|
||||||
>r f -roll r> open-r/w [ 0 mmap ] keep
|
>r f -roll r> open-r/w [ 0 mmap ] keep
|
||||||
|
|
Loading…
Reference in New Issue