iota: Fix second iota -> <iota> in line several times.

diff --git a/basis/math/combinatorics/combinatorics.factor b/basis/math/combinatorics/combinatorics.factor
index b1a1a21f71c4fa660bb959ef8f013323b66bfdb3..5f8eb8514fe813262320b8c4cfc293d6b20d3016 100644 (file)
--- a/basis/math/combinatorics/combinatorics.factor
+++ b/basis/math/combinatorics/combinatorics.factor
@@ -216,7 +216,7 @@ INSTANCE: combinations immutable-sequence
 
 :: combinations-quot ( seq k quot -- seq quot' )
     seq length :> n
-    n k nCk <iota> k iota >array seq quot n
+    n k nCk <iota> k <iota> >array seq quot n
     '[ drop _ [ _ nths-unsafe @ ] keep _ next-combination drop ] ; inline
 
 PRIVATE>

diff --git a/extra/benchmark/mandel/mandel.factor b/extra/benchmark/mandel/mandel.factor
index 9d30ff39c9c04f0dc7948bb5768c95d85053809c..00861f819b89346ee276adfda52161184461a2dd 100644 (file)
--- a/extra/benchmark/mandel/mandel.factor
+++ b/extra/benchmark/mandel/mandel.factor
@@ -24,7 +24,7 @@ IN: benchmark.mandel
     [ color-map [ length mod ] keep nth ] [ B{ 0 0 0 } ] if* ; inline
 
 : render ( -- )
-    height <iota> [ width iota swap '[ _ c pixel color write ] each ] each ; inline
+    height <iota> [ width <iota> swap '[ _ c pixel color write ] each ] each ; inline
 
 : ppm-header ( -- )
     ascii encode-output

diff --git a/extra/benchmark/raytracer/raytracer.factor b/extra/benchmark/raytracer/raytracer.factor
index 1252d402abfa533b866e76f138150ea34f8a1cd3..d035e92827dc5953e528011eed359010a3b82a90 100644 (file)
--- a/extra/benchmark/raytracer/raytracer.factor
+++ b/extra/benchmark/raytracer/raytracer.factor
@@ -148,7 +148,7 @@ DEFER: create
     [ oversampling /f ] bi@ 0.0 double-array{ } 3sequence ;
 
 : ss-grid ( -- ss-grid )
-    oversampling <iota> [ oversampling iota [ ss-point ] with map ] map ;
+    oversampling <iota> [ oversampling <iota> [ ss-point ] with map ] map ;
 
 : ray-grid ( point ss-grid -- ray-grid )
     [

diff --git a/extra/noise/noise.factor b/extra/noise/noise.factor
index 922340baee697868370872dabcc3123b9be0f72d..92ecdbc434483ec7289794ccd1a228e206b789f5 100644 (file)
--- a/extra/noise/noise.factor
+++ b/extra/noise/noise.factor
@@ -120,7 +120,7 @@ TYPED:: perlin-noise ( table: byte-array point: float-4 -- value: float )
     faded trilerp ;
 
 MEMO: perlin-noise-map-coords ( dim -- coords )
-    first2 <iota> [| x y | x iota [ y 0.0 0.0 float-4-boa ] float-4-array{ } map-as ] with map concat ;
+    first2 <iota> [| x y | x <iota> [ y 0.0 0.0 float-4-boa ] float-4-array{ } map-as ] with map concat ;
 
 TYPED:: perlin-noise-map ( table: byte-array transform: matrix4 coords: float-4-array -- map: float-array )
     coords [| coord | table transform coord m4.v perlin-noise ] data-map( float-4 -- c:float )