9 lines
290 B
Factor
Executable File
9 lines
290 B
Factor
Executable File
USING: io.backend kernel continuations sequences ;
|
|
IN: io.windows.privileges
|
|
|
|
HOOK: set-privilege io-backend ( name ? -- ) inline
|
|
|
|
: with-privileges ( seq quot -- )
|
|
over [ [ t set-privilege ] each ] curry compose
|
|
swap [ [ f set-privilege ] each ] curry [ ] cleanup ; inline
|