Fix benchmark table output

db4
Slava Pestov 2009-03-15 23:25:36 -05:00
parent 47dc534901
commit 0c39ed30e1
1 changed files with 2 additions and 2 deletions

View File

@ -24,10 +24,10 @@ IN: benchmark
[
[
[ [ 1array $vocab-link ] with-cell ]
[ [ 1000000 /f pprint-cell ] [ "failed" write ] if* ] bi*
[ [ 1000000 /f pprint-cell ] [ [ "failed" write ] with-cell ] if* ] bi*
] with-row
] assoc-each
] tabular-output ;
] tabular-output nl ;
: benchmarks ( -- )
run-benchmarks benchmarks. ;