fix word name

2008-01-13 10:09:59 -10:00 · 2008-01-13 10:09:59 -10:00 · a6d0c33a94
parent 669104c2e6
commit a6d0c33a94
1 changed files with 1 additions and 1 deletions
--- a/extra/math/miller-rabin/miller-rabin.factor
+++ b/extra/math/miller-rabin/miller-rabin.factor
@ -77,7 +77,7 @@ TUPLE: miller-rabin-bounds ;
    >odd (find-relative-prime) ;

 : find-relative-prime ( n -- p )
-    dup random (find-relative-prime*) ;
+    dup random find-relative-prime* ;

 : unique-primes ( numbits n -- seq )
    #! generate two primes