From 38cc644eca6d74f3bede557b7dab3d05af8fba94 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 1 May 2009 07:05:41 -0500
Subject: [PATCH] tools.deploy.test: close stdin

---
 basis/tools/deploy/test/test.factor | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/basis/tools/deploy/test/test.factor b/basis/tools/deploy/test/test.factor
index eb780e40cc..f997a6eb3a 100644
--- a/basis/tools/deploy/test/test.factor
+++ b/basis/tools/deploy/test/test.factor
@@ -16,4 +16,5 @@ IN: tools.deploy.test
 : run-temp-image ( -- )
     vm
     "-i=" "test.image" temp-file append
-    2array try-process ;
\ No newline at end of file
+    2array
+    <process> swap >>command +closed+ >>stdin try-process ;
\ No newline at end of file