From 16f54dfde657445c6058d578c901de07e62f6fe5 Mon Sep 17 00:00:00 2001
From: slava <slava@factorcode.org>
Date: Sat, 4 Feb 2006 01:01:31 +0000
Subject: [PATCH] little C streams cleanup

---
 library/io/c-streams.factor | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/library/io/c-streams.factor b/library/io/c-streams.factor
index 5e51132b0d..99fd4a59bd 100644
--- a/library/io/c-streams.factor
+++ b/library/io/c-streams.factor
@@ -27,10 +27,12 @@ M: c-stream stream-close ( stream -- )
     dup c-stream-in [ fclose ] when*
     c-stream-out [ fclose ] when* ;
 
+: <duplex-c-stream> ( in out -- stream )
+    >r f <c-stream> <line-reader> f r> <c-stream> <plain-writer>
+    <duplex-stream> ;
+
 : init-io ( -- )
-    13 getenv f <c-stream> <line-reader>
-    f 14 getenv <c-stream> <plain-writer>
-    <duplex-stream> stdio set ;
+    13 getenv 14 getenv <duplex-c-stream> stdio set ;
 
 : io-multiplex ( ms -- ) drop ;