tools.test: flush the output stream

diff --git a/basis/tools/test/test.factor b/basis/tools/test/test.factor
index b6d56b18c078a6c2abde8ac99889b1ae30f41e4e..42721bada1da85578bab3879088755eb35623eeb 100644 (file)
--- 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