From a6d0c33a94ac1ada80e26ecc12d31231d24a3633 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sun, 13 Jan 2008 10:09:59 -1000 Subject: [PATCH] fix word name --- extra/math/miller-rabin/miller-rabin.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/math/miller-rabin/miller-rabin.factor b/extra/math/miller-rabin/miller-rabin.factor index 5e8b9d8285..de5a262268 100644 --- 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