Fix mmap on windows

diff --git a/extra/io/windows/privileges/privileges.factor b/extra/io/windows/privileges/privileges.factor
index 144c799912fa68bc6a2c26cd67929173236bdd35..e169bdf12f514369dec22779c90042a672fa6665 100755 (executable)
--- a/extra/io/windows/privileges/privileges.factor
+++ b/extra/io/windows/privileges/privileges.factor
@@ -1,4 +1,5 @@
-USING: io.backend kernel continuations sequences ;\r
+USING: io.backend kernel continuations sequences\r
+system vocabs.loader combinators ;\r
 IN: io.windows.privileges\r
 \r
 HOOK: set-privilege io-backend ( name ? -- ) inline\r
@@ -6,3 +7,8 @@ HOOK: set-privilege io-backend ( name ? -- ) inline
 : with-privileges ( seq quot -- )\r
     over [ [ t set-privilege ] each ] curry compose\r
     swap [ [ f set-privilege ] each ] curry [ ] cleanup ; inline\r
+\r
+{\r
+    { [ os winnt? ] [ "io.windows.nt.privileges" require ] }\r
+    { [ os wince? ] [ "io.windows.ce.privileges" require ] }\r
+} cond\r