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 c57fbdb998adcfeee0682be9a2351a57b7798e04..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 <groups> ,
+        100 <iota> 2 <groups> ,
         "hello" <reversed> ,
         { { 1 2 } { 3 4 } } 0 <column> ,
         ?{ t f t } ,