Fix unix mmap

release
Slava Pestov 2007-11-24 16:32:59 -05:00
parent 3d17dbb433
commit 90731836af
1 changed files with 1 additions and 1 deletions

View File

@ -13,7 +13,7 @@ IN: io.unix.mmap
M: unix-io <mapped-file> ( path length -- obj )
swap >r
dup PROT_READ PROT_WRITE bitor MAP_FILE MAP_SHARED bitor
r> mmap-open \ mapped-file construct-boa ;
r> mmap-open f mapped-file construct-boa ;
M: unix-io (close-mapped-file) ( mmap -- )
[ mapped-file-address ] keep