Merge branch 'for-slava' of git://git.rfc1149.net/factor

2009-09-10 13:15:18 -05:00 · 2009-09-10 13:15:18 -05:00 · dfb07601fa
parent 64cddef3e1 d23286a9ef
commit dfb07601fa
1 changed files with 1 additions and 1 deletions
--- 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>