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

Benchmark harness now runs a GC first

db4
Slava Pestov 2009-04-30 04:00:54 -05:00
parent 8c01b79d06
commit 1ce65acff1
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/benchmark/benchmark.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: kernel vocabs vocabs.loader tools.time tools.vocabs USING: kernel vocabs vocabs.loader tools.time tools.vocabs
arrays assocs io.styles io help.markup prettyprint sequences arrays assocs io.styles io help.markup prettyprint sequences
continuations debugger math namespaces ; continuations debugger math namespaces memory ;
IN: benchmark IN: benchmark
<PRIVATE <PRIVATE
@ -14,7 +14,7 @@ PRIVATE>
: run-benchmark ( vocab -- ) : run-benchmark ( vocab -- )
[ "=== " write vocab-name print flush ] [ [ "=== " write vocab-name print flush ] [
[ [ require ] [ [ run ] benchmark ] [ ] tri timings ] [ [ require ] [ gc [ run ] benchmark ] [ ] tri timings ]
[ swap errors ] [ swap errors ]
recover get set-at recover get set-at
] bi ; ] bi ;