math.functions: move lcm to core/math

diff --git a/basis/math/functions/functions.factor b/basis/math/functions/functions.factor
index 5ac743b76c98ed27eba6a3359274b2cf7461b48a..47238366f227aca4b45535f8c743e808b657b299 100644 (file)
--- a/basis/math/functions/functions.factor
+++ b/basis/math/functions/functions.factor
@@ -105,9 +105,6 @@ PRIVATE>
 
 : nth-root ( n x -- y ) swap recip ^ ; inline
 
-: lcm ( a b -- c )
-    [ * ] 2keep simple-gcd /i ; foldable
-
 : divisor? ( m n -- ? )
     mod 0 = ; inline
 

diff --git a/core/math/math.factor b/core/math/math.factor
index 6dad0ab295694fd4f2bd84b74727c406af3508cd..1ddb1ec6cc6a91a2526b69d17f530557fa5e1d7c 100644 (file)
--- a/core/math/math.factor
+++ b/core/math/math.factor
@@ -230,6 +230,9 @@ M: fixnum simple-gcd fixnum-gcd ; inline
 
 M: bignum simple-gcd bignum-gcd ; inline
 
+: lcm ( a b -- c )
+    [ * ] 2keep simple-gcd /i ; foldable
+
 : fp-bitwise= ( x y -- ? ) [ double>bits ] same? ; inline
 
 GENERIC: fp-special? ( x -- ? )