Fix stack effect

db4
Slava Pestov 2008-02-13 15:55:54 -06:00
parent d58dfd1b2d
commit 5d16e232e8
1 changed files with 1 additions and 1 deletions

2
extra/benchmark/benchmark.factor Normal file → Executable file
View File

@ -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 )