steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tools.test: flush the output stream

Slava Pestov 2009-08-08 23:03:53 -05:00
parent 638f5b6579
commit 67320eb051
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/tools/test/test.factor
View File

@ -80,7 +80,7 @@ MACRO: <experiment> ( word -- )
'[ _ ndup _ narray _ prefix ] ; '[ _ ndup _ narray _ prefix ] ;
: experiment. ( seq -- ) : experiment. ( seq -- )
[ first write ": " write ] [ rest . ] bi ; [ first write ": " write ] [ rest . flush ] bi ;
:: experiment ( word: ( -- error ? ) line# -- ) :: experiment ( word: ( -- error ? ) line# -- )
word <experiment> :> e word <experiment> :> e