Make lcm_I semantics match exceptations.

Fixes remaining failure in lcm.t.
Raku · Jun 22, 2013 · 73cea21 · 73cea21
1 parent 2d93042
commit 73cea21
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java b/src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java
@@ -2480,7 +2480,7 @@ public static SixModelObject lcm_I(SixModelObject a, SixModelObject b, SixModelO
         BigInteger valA = getBI(tc, a);
         BigInteger valB = getBI(tc, b);
         BigInteger gcd = valA.gcd(valB);
-        return makeBI(tc, type, valA.multiply(valB).divide(gcd));
+        return makeBI(tc, type, valA.multiply(valB).divide(gcd).abs());
     }
 
     public static long isnanorinf(double n) {