fix win32 dos prompt io

diff --git a/library/io/c-streams.factor b/library/io/c-streams.factor
index f35e931812a0765762bdb65acf4a44ceb1c9c611..9f334e3529c2b7393c22a703a2e7bc1a73665995 100644 (file)
--- a/library/io/c-streams.factor
+++ b/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

diff --git a/library/io/windows/io.factor b/library/io/windows/io.factor
index 6188fee500057d25e6edad7991d170a3dd979a4c..ba38f87da924077a97688caedad4e766ae542281 100644 (file)
--- a/library/io/windows/io.factor
+++ b/library/io/windows/io.factor
@@ -37,5 +37,6 @@ IN: io-internals
 
 : init-io ( -- )
     win32-init-stdio
-    init-winsock ;
+    init-winsock
+    init-c-io ;