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

diff --git a/extra/benchmark/benchmark.factor b/extra/benchmark/benchmark.factor
index 4735e86647ad3e897f83bbeac08f131998c79390..c3b1c97426712a9f5cc37ef99ce566d999bfd9ba 100644 (file)
--- a/extra/benchmark/benchmark.factor
+++ b/extra/benchmark/benchmark.factor
@@ -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