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

benchmark: fix benchmark selection so it works like tools.test

char-rename
Björn Lindqvist 2016-09-26 10:35:42 +02:00
parent c6faf98c86
commit d18fbb1678
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/benchmark/benchmark.factor
View File

@ -1,8 +1,8 @@
! Copyright (C) 2007, 2009 Slava Pestov. ! Copyright (C) 2007, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays assocs continuations debugger formatting fry help.markup USING: arrays assocs command-line continuations debugger formatting
io io.styles kernel math memory namespaces prettyprint sequences fry help.markup io io.styles kernel math memory namespaces prettyprint
splitting tools.profiler.sampling tools.test tools.time sequences tools.profiler.sampling tools.test tools.time
vocabs.hierarchy vocabs.loader ; vocabs.hierarchy vocabs.loader ;
IN: benchmark IN: benchmark
@ -16,7 +16,7 @@ IN: benchmark
"benchmark" disk-child-vocab-names [ find-vocab-root ] filter ; "benchmark" disk-child-vocab-names [ find-vocab-root ] filter ;
: find-benchmark-vocabs ( -- seq ) : find-benchmark-vocabs ( -- seq )
"benchmarks" get " " split harvest [ all-benchmark-vocabs ] when-empty ; command-line get [ all-benchmark-vocabs ] when-empty ;
<PRIVATE <PRIVATE