basis: ERROR: changes.

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

diff --git a/basis/math/primes/primes.factor b/basis/math/primes/primes.factor
index 8ed1675ca7f3185649ced3abbc6a3619087039ab..1e9e0691c319cb0acd84634e411a68826faee297 100644 (file)
--- a/basis/math/primes/primes.factor
+++ b/basis/math/primes/primes.factor
@@ -88,7 +88,7 @@ PRIVATE>
 ERROR: no-relative-prime n ;
 
 : find-relative-prime* ( n guess -- p )
-    [ dup 1 <= [ no-relative-prime ] when ]
+    [ dup 1 <= [ throw-no-relative-prime ] when ]
     [ >odd dup 1 <= [ drop 3 ] when ] bi*
     [ 2dup coprime? ] [ 2 + ] until nip ;
 
@@ -98,6 +98,6 @@ ERROR: no-relative-prime n ;
 ERROR: too-few-primes n numbits ;
 
 : unique-primes ( n numbits -- seq )
-    2dup 2^ estimated-primes > [ too-few-primes ] when
+    2dup 2^ estimated-primes > [ throw-too-few-primes ] when
     2dup [ random-prime ] curry replicate
     dup all-unique? [ 2nip ] [ drop unique-primes ] if ;