steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
extra/benchmark/benchmark.factor
View File

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