Do not repeat sanity tests at each iteration

diff --git a/basis/math/primes/primes.factor b/basis/math/primes/primes.factor
index 27743a4a85780f45c2ee6006ab8da325d83c15b9..81193af400bfa749003a2b01b831b5e9dfb059c3 100644 (file)
--- a/basis/math/primes/primes.factor
+++ b/basis/math/primes/primes.factor
@@ -69,7 +69,7 @@ ERROR: no-relative-prime n ;
 : (find-relative-prime) ( n guess -- p )
     over 1 <= [ over no-relative-prime ] when
     dup 1 <= [ drop 3 ] when
-    2dup gcd nip 1 > [ 2 + (find-relative-prime) ] [ nip ] if ;
+    [ 2dup coprime? ] [ 2 + ] until nip ;
 
 PRIVATE>