math: make lcm work on real

diff --git a/core/math/math-docs.factor b/core/math/math-docs.factor
index e654f9b7aa605089afc339aac2a669a22a033d1c..a1e5562d1fffc0b4ca08189aa822435698b25a7e 100644 (file)
--- a/core/math/math-docs.factor
+++ b/core/math/math-docs.factor
@@ -257,6 +257,7 @@ HELP: lcm
     { $example "USING: math prettyprint ;" "10 8 lcm ." "40" }
     { $example "USING: math prettyprint ;" "10 0 lcm ." "0" }
     { $example "USING: math prettyprint ;" "0 0 lcm ." "0" }
+    { $example "USING: math prettyprint ;" "1/3 1/6 lcm ." "1/3" }
 } ;
 
 HELP: 2/

diff --git a/core/math/math.factor b/core/math/math.factor
index 3096af7f68c9e7477a2ee61a86e99139bf8472fa..aeaae13b559e873084499f00cf973cea79c7353d 100644 (file)
--- a/core/math/math.factor
+++ b/core/math/math.factor
@@ -233,7 +233,7 @@ M: bignum simple-gcd bignum-gcd ; inline
 M: real simple-gcd gcd nip ; inline
 
 : lcm ( a b -- c )
-    [ * dup zero? ] 2keep '[ _ _ simple-gcd /i ] unless ; foldable
+    [ * dup zero? ] 2keep '[ _ _ simple-gcd / ] unless ; foldable
 
 : fp-bitwise= ( x y -- ? ) [ double>bits ] same? ; inline