]> gitweb.factorcode.org Git - factor.git/blobdiff - extra/benchmark/spectral-norm-simd/spectral-norm-simd.factor
core: Rename iota to <iota> so we can have TUPLE: iota ... ; instead of TUPLE: iota...
[factor.git] / extra / benchmark / spectral-norm-simd / spectral-norm-simd.factor
index c0c4af8526a6787c5f9847cef94d856bcfe61649..03156cc83f7ccb5bd26b3b3a86dfa47a07b5eacb 100644 (file)
@@ -8,8 +8,8 @@ SPECIALIZED-ARRAYS: double double-4 ;
 IN: benchmark.spectral-norm-simd
 
 :: inner-loop ( u n quot -- seq )
-    n 4 /i iota [| i |
-        n iota [| j | u i j quot call ] [ v+ ] map-reduce
+    n 4 /i <iota> [| i |
+        n <iota> [| j | u i j quot call ] [ v+ ] map-reduce
     ] double-4-array{ } map-as ; inline
 
 : eval-A ( i j -- n )