core: Rename iota to <iota> so we can have TUPLE: iota ... ; instead of TUPLE: iota...

[factor.git] / basis / math / vectors / simd / simd-tests.factor

diff --git a/basis/math/vectors/simd/simd-tests.factor b/basis/math/vectors/simd/simd-tests.factor
index cefe886b7234589aea753e5db731cf84b5ad5bda..7f65078fd90b51f35ab437bcd54bd319640f15d9 100644 (file)
--- a/basis/math/vectors/simd/simd-tests.factor
+++ b/basis/math/vectors/simd/simd-tests.factor
@@ -469,7 +469,7 @@ simd-classes [
     [ [ { } ] ] dip
     [ new length shuffles-for ] keep
     '[
-        _ [ [ _ new [ length iota ] keep like 1quotation ] dip '[ _ vshuffle ] ]
+        _ [ [ _ new [ length <iota> ] keep like 1quotation ] dip '[ _ vshuffle ] ]
         [ = ] check-optimizer
     ] unit-test
 ] each
@@ -480,7 +480,7 @@ simd-classes [
     '[
         _ [ [
             _ new
-            [ [ length iota ] keep like ]
+            [ [ length <iota> ] keep like ]
             [ [ length dup dup + [a,b) ] keep like ] bi [ ] 2sequence
         ] dip '[ _ vshuffle2-elements ] ]
         [ = ] check-optimizer
@@ -567,7 +567,7 @@ TUPLE: inconsistent-vector-test bool branch ;
 
 ! Test element access -- it should box bignums for int-4 on x86
 : test-accesses ( seq -- failures )
-    [ length iota dup [ >bignum ] map append ] keep
+    [ length <iota> dup [ >bignum ] map append ] keep
     '[ [ _ 1quotation ] dip '[ _ swap nth ] ] [ = ] check-optimizer ; inline
 
 { { } } [ float-4{ 1.0 2.0 3.0 4.0 } test-accesses ] unit-test
@@ -584,7 +584,7 @@ TUPLE: inconsistent-vector-test bool branch ;
 
 "== Checking broadcast" print
 : test-broadcast ( seq -- failures )
-    [ length iota >array ] keep
+    [ length <iota> >array ] keep
     '[ [ _ 1quotation ] dip '[ _ vbroadcast ] ] [ = ] check-optimizer ;
 
 { { } } [ float-4{ 1.0 2.0 3.0 4.0 } test-broadcast ] unit-test