From: erg <erg@trifocus.net>
Date: Wed, 18 Oct 2006 21:17:56 +0000 (+0000)
Subject: fix win32 dos prompt io
X-Git-Tag: 0.85~20
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=416edff582d125a11b9a3c25ebfa07b2be480c63

fix win32 dos prompt io
---

diff --git a/library/io/c-streams.factor b/library/io/c-streams.factor
index f35e931812..9f334e3529 100644
--- 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 6188fee500..ba38f87da9 100644
--- 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 ;