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

Fix mmap on windows

db4
U-SLAVA-DFB8FF805\Slava 2008-07-07 12:14:07 -05:00
parent 5ba6a0c56d
commit 763a45cc67
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/io/windows/privileges/privileges.factor
View File

@ -1,4 +1,5 @@
USING: io.backend kernel continuations sequences ; USING: io.backend kernel continuations sequences
system vocabs.loader combinators ;
IN: io.windows.privileges IN: io.windows.privileges
HOOK: set-privilege io-backend ( name ? -- ) inline HOOK: set-privilege io-backend ( name ? -- ) inline
@ -6,3 +7,8 @@ HOOK: set-privilege io-backend ( name ? -- ) inline
: with-privileges ( seq quot -- ) : with-privileges ( seq quot -- )
over [ [ t set-privilege ] each ] curry compose over [ [ t set-privilege ] each ] curry compose
swap [ [ f set-privilege ] each ] curry [ ] cleanup ; inline swap [ [ f set-privilege ] each ] curry [ ] cleanup ; inline
{
{ [ os winnt? ] [ "io.windows.nt.privileges" require ] }
{ [ os wince? ] [ "io.windows.ce.privileges" require ] }
} cond