From 2e1e38db890887ed31917ed7b5474b7252e23f60 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Thu, 14 Feb 2008 01:17:54 -0600
Subject: [PATCH] Fix <process-stream> +timeout+

---
 extra/io/launcher/launcher.factor | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/extra/io/launcher/launcher.factor b/extra/io/launcher/launcher.factor
index cbece818c9..6e6d79d8a4 100755
--- a/extra/io/launcher/launcher.factor
+++ b/extra/io/launcher/launcher.factor
@@ -119,7 +119,9 @@ HOOK: process-stream* io-backend ( desc -- stream process )
 TUPLE: process-stream process ;
 
 : <process-stream> ( desc -- stream )
-    >descriptor process-stream*
+    >descriptor
+    [ process-stream* ] keep
+    +timeout+ swap at [ over set-timeout ] when*
     { set-delegate set-process-stream-process }
     process-stream construct ;