benchmark: wrap the error in <test-failure>

Piggybacks on the test-failure error. word so that we get a traceback if
an error occurs during benchmarking. To make it easier to debug the "No
suitable arithmetic method" random error #1484

diff --git a/extra/benchmark/benchmark.factor b/extra/benchmark/benchmark.factor
index 3f4a87405480c0206b78dfefcfd12871728d4294..9016d3444946e2b4c3e80c78ef3b601451afafc7 100644 (file)
--- a/extra/benchmark/benchmark.factor
+++ b/extra/benchmark/benchmark.factor
@@ -2,7 +2,7 @@
 ! See http://factorcode.org/license.txt for BSD license.
 USING: arrays assocs continuations debugger formatting fry help.markup
 io io.styles kernel math memory prettyprint sequences
-tools.profiler.sampling tools.time vocabs.hierarchy vocabs.loader ;
+tools.profiler.sampling tools.test tools.time vocabs.hierarchy vocabs.loader ;
 IN: benchmark
 
 : run-timing-benchmark ( vocab -- time )
@@ -20,7 +20,9 @@ IN: benchmark
     "=== %s\n" printf ;
 
 : run-benchmark ( vocab quot: ( vocab -- res ) -- result ok? )
-    over write-header '[ _ @ t ] [ f ] recover ; inline
+    over write-header '[ _ @ t ] [
+        f f f <test-failure> f
+    ] recover ; inline
 
 PRIVATE>