diff options
| -rw-r--r-- | src/clj/clojure/core.clj | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj index 37a063aa..b958b7eb 100644 --- a/src/clj/clojure/core.clj +++ b/src/clj/clojure/core.clj @@ -1894,6 +1894,7 @@ [x] (cond (decimal? x) x (float? x) (. BigDecimal valueOf (double x)) + (ratio? x) (/ (BigDecimal. (.numerator x)) (.denominator x)) (instance? BigInteger x) (BigDecimal. #^BigInteger x) (number? x) (BigDecimal/valueOf (long x)) :else (BigDecimal. x))) |