basis: ERROR: changes.

[factor.git] / basis / math / primes / lucas-lehmer / lucas-lehmer.factor

diff --git a/basis/math/primes/lucas-lehmer/lucas-lehmer.factor b/basis/math/primes/lucas-lehmer/lucas-lehmer.factor
index a8bf097dbed4082546fa4d60bf7f627ef21cbdd8..adb4364d34c6f5c48bf7c06672d7c99299211a70 100644 (file)
--- a/basis/math/primes/lucas-lehmer/lucas-lehmer.factor
+++ b/basis/math/primes/lucas-lehmer/lucas-lehmer.factor
@@ -14,7 +14,7 @@ ERROR: invalid-lucas-lehmer-candidate obj ;
 
 : lucas-lehmer-guard ( obj -- obj )
     dup { [ integer? ] [ 0 > ] } 1&&
-    [ invalid-lucas-lehmer-candidate ] unless ;
+    [ throw-invalid-lucas-lehmer-candidate ] unless ;
 
 PRIVATE>