benchmark: benchmarks always completes now. Unloadable benchmark vocabs

have results of { f f }.
db4
Eduardo Cavazos 2008-02-16 18:50:21 -06:00
parent 0827f09201
commit 58caa17155
1 changed files with 16 additions and 7 deletions

View File

@ -5,16 +5,25 @@ arrays assocs io.styles io help.markup prettyprint sequences
continuations debugger ;
IN: benchmark
! : run-benchmark ( vocab -- result )
! "=== Benchmark " write dup print flush
! dup require
! [ [ run ] benchmark ] [ error. drop f f ] recover 2array
! dup . ;
: run-benchmark ( vocab -- result )
"=== Benchmark " write dup print flush
dup require
[ [ run ] benchmark ] [ error. drop f f ] recover 2array
dup . ;
"=== Benchmark " write dup vocab-name print flush
[ dup require [ run ] benchmark ] [ error. drop f f ] recover 2array
dup . ;
! : run-benchmarks ( -- assoc )
! "benchmark" load-children
! "benchmark" dup child-vocabs remove
! [ dup run-benchmark ] { } map>assoc ;
: run-benchmarks ( -- assoc )
"benchmark" load-children
"benchmark" dup child-vocabs remove
[ dup run-benchmark ] { } map>assoc ;
"benchmark"
all-child-vocabs values concat [ dup run-benchmark ] { } map>assoc ;
: benchmarks. ( assoc -- )
standard-table-style [