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

[factor.git] / basis / generalizations / generalizations.factor

diff --git a/basis/generalizations/generalizations.factor b/basis/generalizations/generalizations.factor
index 698d49bf791adcdd786aed40c2754d59ccecb6ca..37d4733d255445c06094f64e83ec6c096ac367dd 100644 (file)
--- a/basis/generalizations/generalizations.factor
+++ b/basis/generalizations/generalizations.factor
@@ -91,7 +91,7 @@ MACRO: spread* ( n -- quot )
 MACRO: nspread* ( m n -- quot )
     [ drop [ ] ] [
         [ * 0 ] [ drop neg ] 2bi
-        <range> rest >array dup length iota <reversed>
+        <range> rest >array dup length <iota> <reversed>
         [
             '[ [ [ _ ndip ] curry ] _ ndip ]
         ] 2map dup rest-slice [ [ compose ] compose ] map! drop
@@ -122,7 +122,7 @@ MACRO: mnswap ( m n -- quot )
     1 + '[ _ -nrot ] swap '[ _ _ napply ] ;
 
 MACRO: nweave ( n -- quot )
-    [ dup iota <reversed> [ '[ _ _ mnswap ] ] with map ] keep
+    [ dup <iota> <reversed> [ '[ _ _ mnswap ] ] with map ] keep
     '[ _ _ ncleave ] ;
 
 : nbi-curry ( n -- )