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

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

diff --git a/basis/random/random-tests.factor b/basis/random/random-tests.factor
index 2c1d6d53b8671730e263d288c713b5d3661f8efc..8ab979019bd8f7f384758082635392ebbd1840f7 100644 (file)
--- a/basis/random/random-tests.factor
+++ b/basis/random/random-tests.factor
@@ -11,8 +11,8 @@ IN: random.tests
 { 2 } [ V{ 10 20 30 } [ delete-random drop ] keep length ] unit-test
 [ V{ } [ delete-random drop ] keep length ] must-fail
 
-{ t } [ 10000 [ iota 0 [ drop 187 random + ] reduce ] keep / 2 * 187 10 ~ ] unit-test
-{ t } [ 10000 [ iota 0 [ drop 400 random + ] reduce ] keep / 2 * 400 10 ~ ] unit-test
+{ t } [ 10000 [ <iota> 0 [ drop 187 random + ] reduce ] keep / 2 * 187 10 ~ ] unit-test
+{ t } [ 10000 [ <iota> 0 [ drop 400 random + ] reduce ] keep / 2 * 400 10 ~ ] unit-test
 
 { t } [ 1000 [ 400 random ] replicate members length 256 > ] unit-test
 
@@ -29,7 +29,7 @@ IN: random.tests
 [ { 1 2 } 3 sample ] [ too-many-samples?  ] must-fail-with
 
 { 3 } [ { 1 2 3 4 } 3 sample members length ] unit-test
-{ 99 } [ 100 iota 99 sample members length ] unit-test
+{ 99 } [ 100 <iota> 99 sample members length ] unit-test
 
 { }
 [ [ 100 random-bytes ] with-system-random drop ] unit-test