tools.test: flush the output stream

2009-08-08 23:03:53 -05:00 · 2009-08-08 23:03:53 -05:00 · 67320eb051
parent 638f5b6579
commit 67320eb051
1 changed files with 1 additions and 1 deletions
--- 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