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

[factor.git] / basis / math / matrices / elimination / elimination.factor

diff --git a/basis/math/matrices/elimination/elimination.factor b/basis/math/matrices/elimination/elimination.factor
index 176a140d4f5325c8777d706a8a17b649302253c2..d9117f023f53683fd3ee7bc83f8fbe2195fb3dd4 100644 (file)
--- a/basis/math/matrices/elimination/elimination.factor
+++ b/basis/math/matrices/elimination/elimination.factor
@@ -42,7 +42,7 @@ SYMBOL: matrix
     [ [ clear-scale ] 2keep [ n*v ] dip v+ ] change-row ;
 
 : rows-from ( row# -- slice )
-    rows dup iota <slice> ;
+    rows dup <iota> <slice> ;
 
 : clear-col ( col# row# rows -- )
     [ nth-row ] dip [ [ 2dup ] dip (clear-col) ] each 2drop ;
@@ -79,9 +79,9 @@ SYMBOL: matrix
 
 : reduced ( matrix' -- matrix'' )
     [
-        rows iota <reversed> [
+        rows <iota> <reversed> [
             dup nth-row leading drop
-            [ swap dup iota clear-col ] [ drop ] if*
+            [ swap dup <iota> clear-col ] [ drop ] if*
         ] each
     ] with-matrix ;