move native io word out of win32 ui

diff --git a/library/ui/windows/ui.factor b/library/ui/windows/ui.factor
index 9dd5df87d79778db85083df28e6697029eeb6c04..07e341e07b11f4d70b064b895a9f39145320564b 100644 (file)
--- a/library/ui/windows/ui.factor
+++ b/library/ui/windows/ui.factor
@@ -365,7 +365,3 @@ IN: shells
         ] with-freetype
     ] [ cleanup-win32-ui ] cleanup ;
 
-IN: io-internals
-! Allows use of the ui without native i/o.
-! Overwritten when native i/o is loaded.
-: io-multiplex ( ms -- ) 0 SleepEx drop ;

diff --git a/library/windows/io.factor b/library/windows/io.factor
new file mode 100644 (file)
index 0000000..e36bcac
--- /dev/null
+++ b/library/windows/io.factor
@@ -0,0 +1,7 @@
+USING: kernel win32-api ;
+IN: io-internals
+
+! Allows use of the ui without native i/o.
+! Overwritten when native i/o is loaded.
+: io-multiplex ( ms -- ) 0 SleepEx drop ;
+

diff --git a/library/windows/load.factor b/library/windows/load.factor
index d185ed953547518b32445270e394fb0e376c31c8..6dd57f624931887995b2ec06c8d5a1b2bd490c12 100644 (file)
--- a/library/windows/load.factor
+++ b/library/windows/load.factor
@@ -1,3 +1,4 @@
+USING: kernel namespaces ;
 PROVIDE: library/windows
 { +files+ { 
     "windows-messages.factor"
@@ -15,6 +16,7 @@ PROVIDE: library/windows
     "winsock.factor"
     "opengl32.factor"
     "utils.factor"
+    { "io.factor" [ "native-io" get not ] }
 } } ;
 
 IN: command-line