diff options
| -rw-r--r-- | src/jvm/clojure/lang/Numbers.java | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/jvm/clojure/lang/Numbers.java b/src/jvm/clojure/lang/Numbers.java index 09dc050b..bd4a5150 100644 --- a/src/jvm/clojure/lang/Numbers.java +++ b/src/jvm/clojure/lang/Numbers.java @@ -295,6 +295,8 @@ static public Number divide(BigInteger n, BigInteger d){ d = d.divide(gcd); if(d.equals(BigInteger.ONE)) return reduce(n); + else if(d.equals(BigInteger.ONE.negate())) + return reduce(n.negate()); return new Ratio((d.signum() < 0 ? n.negate() : n), (d.signum() < 0 ? d.negate() : d)); } |