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

[factor.git] / basis / heaps / heaps-tests.factor

diff --git a/basis/heaps/heaps-tests.factor b/basis/heaps/heaps-tests.factor
index 7fa0d5fae0ca16a41e1bd84185d33ccf2e5c0079..49a0d3172563bd446a1bbe1b49ff03b36b98aa5e 100644 (file)
--- a/basis/heaps/heaps-tests.factor
+++ b/basis/heaps/heaps-tests.factor
@@ -31,7 +31,7 @@ IN: heaps.tests
     [ heap-push-all ] keep heap-pop-all ;
 
 : random-alist ( n -- alist )
-    iota [
+    <iota> [
         drop 32 random-bits dup number>string
     ] H{ } map>assoc >alist ;
 
@@ -57,7 +57,7 @@ IN: heaps.tests
 : test-entry-indices ( n -- ? )
     random-alist
     <min-heap> [ heap-push-all ] keep
-    data>> dup length iota swap [ index>> ] map sequence= ;
+    data>> dup length <iota> swap [ index>> ] map sequence= ;
 
 14 [
     [ t ] swap [ 2^ test-entry-indices ] curry unit-test