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