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

benchmark: remove commented words. Use standard indentation.

db4
Eduardo Cavazos 2008-02-16 19:02:54 -06:00
parent b2e0c3d636
commit c4ba816fc9
1 changed files with 5 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
extra/benchmark/benchmark.factor
View File

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