From 9d2fb3378b30ce1e33c4143e1297bd42cda706a5 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Thu, 7 May 2009 21:26:29 -0500
Subject: [PATCH] io.backend.windows.privileges: clean up code and fix
 inference problem

---
 .../backend/windows/privileges/privileges-tests.factor   | 4 ++++
 basis/io/backend/windows/privileges/privileges.factor    | 9 +++++----
 2 files changed, 9 insertions(+), 4 deletions(-)
 create mode 100755 basis/io/backend/windows/privileges/privileges-tests.factor
 mode change 100644 => 100755 basis/io/backend/windows/privileges/privileges.factor

diff --git a/basis/io/backend/windows/privileges/privileges-tests.factor b/basis/io/backend/windows/privileges/privileges-tests.factor
new file mode 100755
index 0000000000..7237651b80
--- /dev/null
+++ b/basis/io/backend/windows/privileges/privileges-tests.factor
@@ -0,0 +1,4 @@
+IN: io.backend.windows.privileges.tests
+USING: io.backend.windows.privileges tools.test ;
+
+[ [ ] with-privileges ] must-infer
diff --git a/basis/io/backend/windows/privileges/privileges.factor b/basis/io/backend/windows/privileges/privileges.factor
old mode 100644
new mode 100755
index 8661ba99d9..58806cc4df
--- a/basis/io/backend/windows/privileges/privileges.factor
+++ b/basis/io/backend/windows/privileges/privileges.factor
@@ -1,12 +1,13 @@
 USING: io.backend kernel continuations sequences
-system vocabs.loader combinators ;
+system vocabs.loader combinators fry ;
 IN: io.backend.windows.privileges
 
-HOOK: set-privilege io-backend ( name ? -- ) inline
+HOOK: set-privilege io-backend ( name ? -- )
 
 : with-privileges ( seq quot -- )
-    over [ [ t set-privilege ] each ] curry compose
-    swap [ [ f set-privilege ] each ] curry [ ] cleanup ; inline
+    [ '[ _ [ t set-privilege ] each @ ] ]
+    [ drop '[ _ [ f set-privilege ] each ] ]
+    2bi [ ] cleanup ; inline
 
 {
     { [ os winnt? ] [ "io.backend.windows.nt.privileges" require ] }