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

mrjbq7 · Jan 7, 2024 · af8e25b · af8e25b
1 parent ba8d61e
commit af8e25b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/basis/math/functions/functions-tests.factor b/basis/math/functions/functions-tests.factor
@@ -159,6 +159,7 @@ CONSTANT: log10-factorial-1000 0x1.40f3593ed6f8ep11
 { t } [ 42 -7 divisor? ] unit-test
 { t } [ 42 42 divisor? ] unit-test
 { f } [ 42 16 divisor? ] unit-test
+{ t } [ 42.0 1 divisor? ] unit-test
 
 { 3 } [ 5 7 mod-inv ] unit-test
 { 78572682077 } [ 234829342 342389423843 mod-inv ] unit-test

diff --git 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 ;