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

[factor.git] / basis / combinators / random / random.factor

diff --git a/basis/combinators/random/random.factor b/basis/combinators/random/random.factor
index 661ed3f08dbd0d8e992bc2f1bbb55cf802fb5bbb..9363ede491f55c521b8f12a550bef2f03dd04420 100644 (file)
--- a/basis/combinators/random/random.factor
+++ b/basis/combinators/random/random.factor
@@ -47,7 +47,7 @@ MACRO: (casep) ( assoc -- quot ) (casep>quot) ;
     [ swap nth ] 2bi * ;
 
 : conditional-probabilities ( seq -- seq' )
-    dup length iota [ (conditional-probabilities) ] with map ;
+    dup length <iota> [ (conditional-probabilities) ] with map ;
 
 : (direct>conditional) ( assoc -- assoc' )
     [ keys conditional-probabilities ] [ values ] bi zip ;