From 416edff582d125a11b9a3c25ebfa07b2be480c63 Mon Sep 17 00:00:00 2001
From: erg <erg@trifocus.net>
Date: Wed, 18 Oct 2006 21:17:56 +0000
Subject: [PATCH] fix win32 dos prompt io

---
 library/io/c-streams.factor  | 4 +++-
 library/io/windows/io.factor | 3 ++-
 2 files changed, 5 insertions(+), 2 deletions(-)

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