move native io word out of win32 ui

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 ;

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 ;
+

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