diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2010-01-31 01:11:47 -0500 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2010-01-31 01:11:47 -0500 |
| commit | 1c75488b50a73cf776c70db44f4a77439b9347ca (patch) | |
| tree | 9b58067981f64b314d538fd8e176d504100b8fbf /src/main/clojure | |
| parent | 8b512d8fc228bd257d0601d7f4ac7592ebfab0c8 (diff) | |
new c.c.json: fix 1 reflective call
Diffstat (limited to 'src/main/clojure')
| -rw-r--r-- | src/main/clojure/clojure/contrib/json.clj | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/main/clojure/clojure/contrib/json.clj b/src/main/clojure/clojure/contrib/json.clj index 0af05913..b4118c8f 100644 --- a/src/main/clojure/clojure/contrib/json.clj +++ b/src/main/clojure/clojure/contrib/json.clj @@ -11,7 +11,6 @@ ;; agreeing to be bound by the terms of this license. You must not ;; remove this notice, or any other, from this software. - (ns #^{:author "Stuart Sierra" :doc "JavaScript Object Notation (JSON) parser/writer. See http://www.json.org/ @@ -222,7 +221,7 @@ java.lang.CharSequence (print-json [s] - (let [sb (StringBuilder. (count s))] + (let [sb (StringBuilder. #^Integer (count s))] (.append sb \") (dotimes [i (count s)] (let [cp (Character/codePointAt s i)] |