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

[factor.git] / core / assocs / assocs.factor

diff --git a/core/assocs/assocs.factor b/core/assocs/assocs.factor
index 88d5021cc0df91cbad8ab9537349d38257291489..3f4b3b890cee2dac285e2273839219b560d6cb50 100644 (file)
--- a/core/assocs/assocs.factor
+++ b/core/assocs/assocs.factor
@@ -231,7 +231,7 @@ M: assoc value-at* swap [ = nip ] curry assoc-find nip ;
      { } zip-as ; inline
 
 : zip-index-as ( values exemplar -- assoc )
-    [ dup length iota ] dip zip-as ; inline
+    [ dup length <iota> ] dip zip-as ; inline
 
 : zip-index ( values -- alist )
     { } zip-index-as ; inline
@@ -295,7 +295,7 @@ M: enum delete-at seq>> remove-nth! drop ; inline
 
 M: enum >alist ( enum -- alist ) ; inline
 
-M: enum keys seq>> length iota >array ; inline
+M: enum keys seq>> length <iota> >array ; inline
 
 M: enum values seq>> >array ; inline