From 83e0c6057333181936aa3084810df10ca53ab4b5 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sat, 8 Aug 2009 23:03:53 -0500
Subject: [PATCH] tools.test: flush the output stream

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

diff --git a/basis/tools/test/test.factor b/basis/tools/test/test.factor
index b6d56b18c0..42721bada1 100644
--- a/basis/tools/test/test.factor
+++ b/basis/tools/test/test.factor
@@ -80,7 +80,7 @@ MACRO: <experiment> ( word -- )
     '[ _ ndup _ narray _ prefix ] ;
 
 : experiment. ( seq -- )
-    [ first write ": " write ] [ rest . ] bi ;
+    [ first write ": " write ] [ rest . flush ] bi ;
 
 :: experiment ( word: ( -- error ? ) line# -- )
     word <experiment> :> e