benchmark: remove commented words. Use standard indentation.
parent
b2e0c3d636
commit
c4ba816fc9
|
@ -5,25 +5,14 @@ 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 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 ;
|
||||
"=== Benchmark " write dup vocab-name print flush
|
||||
[ dup require [ run ] benchmark ] [ error. drop f f ] recover 2array
|
||||
dup . ;
|
||||
|
||||
: run-benchmarks ( -- assoc )
|
||||
"benchmark"
|
||||
all-child-vocabs values concat [ dup run-benchmark ] { } map>assoc ;
|
||||
"benchmark"
|
||||
all-child-vocabs values concat [ dup run-benchmark ] { } map>assoc ;
|
||||
|
||||
: benchmarks. ( assoc -- )
|
||||
standard-table-style [
|
||||
|
|
Loading…
Reference in New Issue