Removing integers-as-sequences

[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 04b1330cc2e0bec710355bf32b387d812a28fa5f..ac5c2df705764a6003c5d360bd4e519c3043a482 100644 (file)
--- a/basis/math/primes/miller-rabin/miller-rabin.factor
+++ b/basis/math/primes/miller-rabin/miller-rabin.factor
@@ -10,7 +10,7 @@ IN: math.primes.miller-rabin
     n 1 - :> n-1
     n-1 factor-2s :> ( r s )
     0 :> a!
-    trials [
+    trials iota [
         drop
         2 n 2 - [a,b] random a!
         a s n ^mod 1 = [