Removing integers-as-sequences

[factor.git] / basis / math / primes / primes.factor

diff --git a/basis/math/primes/primes.factor b/basis/math/primes/primes.factor
index 81193af400bfa749003a2b01b831b5e9dfb059c3..19dcc6aeaf2dff7e89997e0d7d3a1a4c38e367de 100644 (file)
--- a/basis/math/primes/primes.factor
+++ b/basis/math/primes/primes.factor
@@ -78,7 +78,7 @@ PRIVATE>
     >odd (find-relative-prime) ;
 
 : find-relative-prime ( n -- p )
-    dup random find-relative-prime* ;
+    dup iota random find-relative-prime* ;
 
 ERROR: too-few-primes n numbits ;