From a4963a92171063bfacaa149510236ffc1072b793 Mon Sep 17 00:00:00 2001
From: Daniel Ehrenberg <ehrenbed@carleton.edu>
Date: Fri, 22 Feb 2008 20:41:14 -0600
Subject: [PATCH] Fixing Unix/Windows init-stdio

---
 extra/io/unix/backend/backend.factor       | 2 +-
 extra/io/windows/ce/backend/backend.factor | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/extra/io/unix/backend/backend.factor b/extra/io/unix/backend/backend.factor
index e0921f6f02..641b3ebd24 100755
--- a/extra/io/unix/backend/backend.factor
+++ b/extra/io/unix/backend/backend.factor
@@ -182,7 +182,7 @@ M: unix-io io-multiplex ( ms -- )
     mx get-global wait-for-events ;
 
 M: unix-io init-stdio ( -- )
-    0 1 handle>duplex-stream io:stdio utf8 <encoded-duplex> set-global
+    0 1 handle>duplex-stream utf8 <encoded-duplex> io:stdio set-global
     2 <writer> utf8 <encoded> io:stderr set-global ;
 
 ! mx io-task for embedding an fd-based mx inside another mx
diff --git a/extra/io/windows/ce/backend/backend.factor b/extra/io/windows/ce/backend/backend.factor
index e90a9f16e2..349276fe72 100755
--- a/extra/io/windows/ce/backend/backend.factor
+++ b/extra/io/windows/ce/backend/backend.factor
@@ -1,7 +1,7 @@
 USING: io.nonblocking io.windows threads.private kernel
 io.backend windows.winsock windows.kernel32 windows
 io.streams.duplex io namespaces alien.syntax system combinators
-io.buffers ;
+io.buffers io.encodings io.encodings.utf8 ;
 IN: io.windows.ce.backend
 
 : port-errored ( port -- )
@@ -41,5 +41,5 @@ M: windows-ce-io init-stdio ( -- )
         ] [
             0 _getstdfilex _fileno
             1 _getstdfilex _fileno
-        ] if <win32-duplex-stream>
+        ] if <win32-duplex-stream> utf8 <encoded-duplex>
     ] with-variable stdio set-global ;