diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2010-11-26 10:02:45 -0500 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2010-11-26 10:02:45 -0500 |
| commit | d6f6ccfaeac03e35b1f9dbfa04424866cd9b2a41 (patch) | |
| tree | c6503cc86434fe1e44b4ff287ffc070f43bec325 /modules/json/src/main/clojure | |
| parent | a579d18512eaa2e61483b664a02fe18e47ee2c08 (diff) | |
Handle quotes in JSON keys correctly; refs #98
Diffstat (limited to 'modules/json/src/main/clojure')
| -rw-r--r-- | modules/json/src/main/clojure/clojure/contrib/json.clj | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/modules/json/src/main/clojure/clojure/contrib/json.clj b/modules/json/src/main/clojure/clojure/contrib/json.clj index 0a07b59c..a69195ea 100644 --- a/modules/json/src/main/clojure/clojure/contrib/json.clj +++ b/modules/json/src/main/clojure/clojure/contrib/json.clj @@ -238,9 +238,7 @@ (let [[k v] (first x)] (when (nil? k) (throw (Exception. "JSON object keys cannot be nil/null"))) - (.print out \") - (.print out (as-str k)) - (.print out \") + (write-json-string (as-str k) out) (.print out \:) (write-json v out)) (let [nxt (next x)] |