math.functions: fix divisor? to work with mixed numbers

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

diff --git a/basis/math/functions/functions.factor b/basis/math/functions/functions.factor
index c9cb435197633ce5fcdfdcab89751a018f143d7c..d691fb9f747a01b7d48c31465566ca45dc732a7a 100644 (file)
--- a/basis/math/functions/functions.factor
+++ b/basis/math/functions/functions.factor
@@ -106,8 +106,7 @@ PRIVATE>
 
 : nth-root ( n x -- y ) swap recip ^ ; inline
 
-: divisor? ( m n -- ? )
-    mod 0 = ; inline
+: divisor? ( m n -- ? ) mod zero? ; inline
 
 ERROR: non-trivial-divisor n ;