Print messages as benchmarks are run

diff --git a/extra/benchmark/benchmark.factor b/extra/benchmark/benchmark.factor
index a1e892229ad8a0f84e0b4a82fcb58bf4cf3c2738..9afd2118766d9bebf382683e8797e4d07feb945a 100755 (executable)
--- a/extra/benchmark/benchmark.factor
+++ b/extra/benchmark/benchmark.factor
@@ -6,8 +6,10 @@ continuations debugger math ;
 IN: benchmark
 
 : run-benchmark ( vocab -- result )
-    [ [ require ] [ [ run ] benchmark ] bi ] curry
-    [ error. f ] recover ;
+    [ "=== " write vocab-name print flush ] [
+        [ [ require ] [ [ run ] benchmark ] bi ] curry
+        [ error. f ] recover
+    ] bi ;
 
 : run-benchmarks ( -- assoc )
     "benchmark" all-child-vocabs-seq