Removing integers-as-sequences

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

diff --git a/extra/benchmark/iteration/iteration.factor b/extra/benchmark/iteration/iteration.factor
index f49d21d5a36829664733903f94b73b54af176758..51cafbe1e8596b1f602e43df9e6da15c350e3b9b 100644 (file)
--- a/extra/benchmark/iteration/iteration.factor
+++ b/extra/benchmark/iteration/iteration.factor
@@ -2,7 +2,7 @@ IN: benchmark.iteration
 USING: sequences vectors arrays strings sbufs math math.vectors
 kernel ;
 
-: <range> ( from to -- seq ) dup <slice> ; inline
+: <range> ( from to -- seq ) dup iota <slice> ; inline
 
 : vector-iter ( -- ) 100 [ 0 100000 <range> >vector [ ] map drop ] times ;
 : array-iter ( -- ) 100 [ 0 100000 <range> >array [ ] map drop ] times ;