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

[factor.git] / basis / math / primes / miller-rabin / miller-rabin.factor

diff --git a/basis/math/primes/miller-rabin/miller-rabin.factor b/basis/math/primes/miller-rabin/miller-rabin.factor
index f46af202496a9ea545307b3036daeb59f3eb42f4..94707c990d04f71d3f7ff32e1f5737ff6289c823 100644 (file)
--- a/basis/math/primes/miller-rabin/miller-rabin.factor
+++ b/basis/math/primes/miller-rabin/miller-rabin.factor
@@ -10,13 +10,13 @@ IN: math.primes.miller-rabin
     n 1 - :> n-1
     n-1 factor-2s :> ( r s )
     0 :> a!
-    trials iota [
+    trials <iota> [
         drop
         2 n 2 - [a,b] random a!
         a s n ^mod 1 = [
             f
         ] [
-            r iota [
+            r <iota> [
                 2^ s * a swap n ^mod n-1 =
             ] any? not
         ] if