diff --git a/extra/benchmark/benchmark.factor b/extra/benchmark/benchmark.factor old mode 100644 new mode 100755 index 46ff9a1ada..d453ee60ca --- a/extra/benchmark/benchmark.factor +++ b/extra/benchmark/benchmark.factor @@ -8,7 +8,7 @@ IN: benchmark : run-benchmark ( vocab -- result ) "=== Benchmark " write dup print flush dup require - [ [ run ] benchmark ] [ error. f f ] recover 2array + [ [ run ] benchmark ] [ error. drop f f ] recover 2array dup . ; : run-benchmarks ( -- assoc )