steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Update io.mmap to use dip instead of >r/r>

db4
Slava Pestov 2008-12-02 03:09:25 -06:00
parent e559a101e8
commit 60688848f2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/io/mmap/mmap.factor
View File

@ -22,7 +22,7 @@ INSTANCE: mapped-file sequence
HOOK: (mapped-file) io-backend ( path length -- address handle ) HOOK: (mapped-file) io-backend ( path length -- address handle )
: <mapped-file> ( path length -- mmap ) : <mapped-file> ( path length -- mmap )
[ >r normalize-path r> (mapped-file) ] keep [ [ normalize-path ] dip (mapped-file) ] keep
f mapped-file boa ; f mapped-file boa ;
HOOK: close-mapped-file io-backend ( mmap -- ) HOOK: close-mapped-file io-backend ( mmap -- )
@ -30,7 +30,7 @@ HOOK: close-mapped-file io-backend ( mmap -- )
M: mapped-file dispose* ( mmap -- ) close-mapped-file ; M: mapped-file dispose* ( mmap -- ) close-mapped-file ;
: with-mapped-file ( path length quot -- ) : with-mapped-file ( path length quot -- )
>r <mapped-file> r> with-disposal ; inline [ <mapped-file> ] dip with-disposal ; inline
APPLY: mapped-array-functor primitive-types APPLY: mapped-array-functor primitive-types