math: define simple-gcd on real

diff --git a/core/math/math.factor b/core/math/math.factor
index 1ddb1ec6cc6a91a2526b69d17f530557fa5e1d7c..227ec70cb18c02133ad5be4865e2721828686b5f 100644 (file)
--- a/core/math/math.factor
+++ b/core/math/math.factor
@@ -230,6 +230,8 @@ M: fixnum simple-gcd fixnum-gcd ; inline
 
 M: bignum simple-gcd bignum-gcd ; inline
 
+M: real simple-gcd gcd nip ; inline
+
 : lcm ( a b -- c )
     [ * ] 2keep simple-gcd /i ; foldable