Minor benchmark update

2007-09-27 03:59:37 -04:00 · 2007-09-27 03:59:37 -04:00 · 73d664a7d5
parent 5041d0a46a
commit 73d664a7d5
1 changed files with 2 additions and 1 deletions
--- a/extra/benchmark/benchmark.factor
+++ b/extra/benchmark/benchmark.factor
@ -6,7 +6,8 @@ IN: benchmark

 : run-benchmark ( vocab -- result )
    "=== Benchmark " write dup print flush
-    dup require [ run ] benchmark 2array ;
+    dup require [ run ] benchmark 2array
+    dup . ;

 : run-benchmarks ( -- assoc )
    "benchmark" load-children