Handle Ratios by converting to doubles

1 files changed, 6 insertions, 1 deletions

diff --git a/modules/json/src/main/clojure/clojure/contrib/json.clj b/modules/json/src/main/clojure/clojure/contrib/json.clj
index bcb59e2b..9ff79ca1 100644
--- a/modules/json/src/main/clojure/clojure/contrib/json.clj
+++ b/modules/json/src/main/clojure/clojure/contrib/json.clj
@@ -278,7 +278,10 @@
   (if (.isArray (class x))
     (write-json (seq x) out escape-unicode?)
     (throw (Exception. (str "Don't know how to write JSON of " (class x))))))
-  
+
+(defn- write-json-ratio [x out escape-unicode?]
+  (write-json (double x) out escape-unicode?))
+
 (extend nil Write-JSON
         {:write-json write-json-null})
 (extend clojure.lang.Named Write-JSON
@@ -291,6 +294,8 @@
         {:write-json write-json-bignum})
 (extend java.math.BigDecimal Write-JSON
         {:write-json write-json-bignum})
+(extend clojure.lang.Ratio Write-JSON
+        {:write-json write-json-ratio})
 (extend java.lang.CharSequence Write-JSON
         {:write-json write-json-string})
 (extend java.util.Map Write-JSON