Benchmark harness now runs a GC first
parent
8c01b79d06
commit
1ce65acff1
|
@ -2,7 +2,7 @@
|
|||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: kernel vocabs vocabs.loader tools.time tools.vocabs
|
||||
arrays assocs io.styles io help.markup prettyprint sequences
|
||||
continuations debugger math namespaces ;
|
||||
continuations debugger math namespaces memory ;
|
||||
IN: benchmark
|
||||
|
||||
<PRIVATE
|
||||
|
@ -14,7 +14,7 @@ PRIVATE>
|
|||
|
||||
: run-benchmark ( vocab -- )
|
||||
[ "=== " write vocab-name print flush ] [
|
||||
[ [ require ] [ [ run ] benchmark ] [ ] tri timings ]
|
||||
[ [ require ] [ gc [ run ] benchmark ] [ ] tri timings ]
|
||||
[ swap errors ]
|
||||
recover get set-at
|
||||
] bi ;
|
||||
|
|
Loading…
Reference in New Issue