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

View File

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