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

View File

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