factor: trim using lists

[factor.git] / extra / benchmark / dispatch2 / dispatch2.factor

diff --git a/extra/benchmark/dispatch2/dispatch2.factor b/extra/benchmark/dispatch2/dispatch2.factor
index 60a37e95d910b3f56cab746dc57cc7402b36d9b2..a30719359be84ca99b17dcfb7e10d036d902e69c 100644 (file)
--- a/extra/benchmark/dispatch2/dispatch2.factor
+++ b/extra/benchmark/dispatch2/dispatch2.factor
@@ -1,12 +1,12 @@
-USING: alien.c-types make math sequences splitting grouping
+USING: alien.c-types make math sequences grouping
 kernel columns specialized-arrays bit-arrays ;
 SPECIALIZED-ARRAY: double
 IN: benchmark.dispatch2
 
 : sequences ( -- seq )
     [
-        1 iota ,
-        10 >bignum iota ,
+        1 <iota> ,
+        10 >bignum <iota> ,
         { 1 2 3 } ,
         "hello world" ,
         SBUF" sbuf world" ,
@@ -14,7 +14,7 @@ IN: benchmark.dispatch2
         double-array{ 1.0 2.0 3.0 } ,
         "hello world" 4 tail-slice ,
         10 f <repetition> ,
-        100 iota 2 <sliced-groups> ,
+        100 <iota> 2 <groups> ,
         "hello" <reversed> ,
         { { 1 2 } { 3 4 } } 0 <column> ,
         ?{ t f t } ,
@@ -25,8 +25,8 @@ IN: benchmark.dispatch2
 
 : don't-flush-me ( obj -- ) drop ;
 
-: dispatch-test ( -- )
+: dispatch2-benchmark ( -- )
     1000000 sequences
     [ [ first don't-flush-me ] each ] curry times ;
 
-MAIN: dispatch-test
+MAIN: dispatch2-benchmark