From eba4b990af02ad7c77438d95e2deb5bcea0cd456 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 9 Jul 2008 19:23:35 -0500
Subject: [PATCH] Fix stdin

---
 extra/io/unix/backend/backend.factor | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/extra/io/unix/backend/backend.factor b/extra/io/unix/backend/backend.factor
index b984b1f156..aa27b21d98 100755
--- a/extra/io/unix/backend/backend.factor
+++ b/extra/io/unix/backend/backend.factor
@@ -159,9 +159,9 @@ M: unix io-multiplex ( ms/f -- )
 ! pipe to non-blocking, and read from it instead of the real
 ! stdin. Very crufty, but it will suffice until we get native
 ! threading support at the language level.
-TUPLE: stdin control size data ;
+TUPLE: stdin control size data disposed ;
 
-M: stdin dispose
+M: stdin dispose*
     [
         [ control>> &dispose drop ]
         [ size>> &dispose drop ]
@@ -194,10 +194,10 @@ M: stdin refill
 : data-read-fd ( -- fd ) "stdin_read" f dlsym *uint ;
 
 : <stdin> ( -- stdin )
-    control-write-fd <fd> <output-port>
-    size-read-fd <fd> init-fd <input-port>
-    data-read-fd <fd>
-    stdin boa ;
+    stdin new
+        control-write-fd <fd> <output-port> >>control
+        size-read-fd <fd> init-fd <input-port> >>size
+        data-read-fd <fd> >>data ;
 
 M: unix (init-stdio) ( -- )
     <stdin> <input-port>