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

[factor.git] / core / combinators / combinators.factor

diff --git a/core/combinators/combinators.factor b/core/combinators/combinators.factor
index f348155d3698760797698f8c7103192ade30f759..abfea4300123abc63afcf3f27d14a5ecc541b23c 100644 (file)
--- a/core/combinators/combinators.factor
+++ b/core/combinators/combinators.factor
@@ -137,7 +137,7 @@ ERROR: no-case object ;
     ] if ;
 
 : <buckets> ( initial length -- array )
-    next-power-of-2 iota swap [ nip clone ] curry map ;
+    next-power-of-2 <iota> swap [ nip clone ] curry map ;
 
 : distribute-buckets ( alist initial quot -- buckets )
     swapd [ [ dup first ] dip call 2array ] curry map
@@ -202,7 +202,7 @@ M: reversed hashcode* [ sequence-hashcode ] recursive-hashcode ;
 
 M: slice hashcode* [ sequence-hashcode ] recursive-hashcode ;
 
-M: iota-tuple hashcode*
+M: iota hashcode*
     over 0 <= [ 2drop 0 ] [
         nip length 0 swap [ sequence-hashcode-step ] each-integer
     ] if ;