From 763a45cc67377f1c03a5ab348b084eb1f14aab30 Mon Sep 17 00:00:00 2001
From: "U-SLAVA-DFB8FF805\\Slava" <Slava@slava-dfb8ff805.(none)>
Date: Mon, 7 Jul 2008 12:14:07 -0500
Subject: [PATCH] Fix mmap on windows

---
 extra/io/windows/privileges/privileges.factor | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/extra/io/windows/privileges/privileges.factor b/extra/io/windows/privileges/privileges.factor
index 144c799912..e169bdf12f 100755
--- a/extra/io/windows/privileges/privileges.factor
+++ b/extra/io/windows/privileges/privileges.factor
@@ -1,4 +1,5 @@
-USING: io.backend kernel continuations sequences ;
+USING: io.backend kernel continuations sequences
+system vocabs.loader combinators ;
 IN: io.windows.privileges
 
 HOOK: set-privilege io-backend ( name ? -- ) inline
@@ -6,3 +7,8 @@ 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
+
+{
+    { [ os winnt? ] [ "io.windows.nt.privileges" require ] }
+    { [ os wince? ] [ "io.windows.ce.privileges" require ] }
+} cond