fix win32 dos prompt io

library/io/c-streams.factor

@@ -31,9 +31,11 @@ M: c-stream stream-close
     >r f <c-stream> <line-reader> f r> <c-stream> <plain-writer>
     <duplex-stream> ;
 
-: init-io ( -- )
+: init-c-io ( -- )
     13 getenv 14 getenv <duplex-c-stream> stdio set ;
 
+: init-io init-c-io ;
+
 : io-multiplex ( ms -- ) drop ;
 
 IN: io

library/io/windows/io.factor

@@ -37,5 +37,6 @@ IN: io-internals
 
 : init-io ( -- )
     win32-init-stdio
-    init-winsock ;
+    init-winsock
+    init-c-io ;