Minor win32 fixes

TODO.FACTOR.txt

@@ -74,6 +74,8 @@
   - horizontal scrolling
   - window zooming doesn't work
   - polish OS X menu bar code
+  - dock menu
+  - services do not launch if not running
 - when scrolling wheel, or moving mouse out of window, rollover is not
   updated
 - focus is not top-level window aware

library/bootstrap/win32-io.factor

@@ -44,6 +44,5 @@ IN: io-internals
     dup -1 = [ drop INFINITE ] when cancel-timedout wait-for-io 
     swap [ continue-with ] [ drop ] if* ;
 
-: init-io ( -- )
-    win32-init-stdio ;
+: init-io ( -- ) win32-init-io ;
 

library/io/server.factor

@@ -7,8 +7,7 @@ threads ;
 SYMBOL: log-stream
 
 : log-message ( msg -- )
-    log-stream get [ stdio get ] unless*
-    [ stream-print ] keep stream-flush ;
+    log-stream get [ stream-print ] keep stream-flush ;
 
 : log-error ( error -- ) "Error: " swap append log-message ;
 

library/windows/win32-io-internals.factor

@@ -117,7 +117,8 @@ C: io-callback ( -- callback )
     (wait-for-io) overlapped>callback swap *int 
     rot [ queue-error ] unless ;
 
-: win32-init-stdio ( -- )
+: win32-init-io ( -- )
+    stdio off
     INVALID_HANDLE_VALUE f f 1 CreateIoCompletionPort
     completion-port set 
     <io-queue> io-queue set ;