basis: ERROR: changes.

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

diff --git a/basis/math/functions/functions.factor b/basis/math/functions/functions.factor
index 22e07db9844cb13a90636e87696d691e9133b2c4..b0fd43deb3f3e4a77626b5772ce4c53dc21b2baf 100644 (file)
--- a/basis/math/functions/functions.factor
+++ b/basis/math/functions/functions.factor
@@ -116,7 +116,7 @@ ERROR: non-trivial-divisor n ;
 : mod-inv ( x n -- y )
     [ nip ] [ gcd 1 = ] 2bi
     [ dup 0 < [ + ] [ nip ] if ]
-    [ non-trivial-divisor ] if ; foldable
+    [ throw-non-trivial-divisor ] if ; foldable
 
 : ^mod ( x y n -- z )
     over 0 <