           (recur nxt)))))
   (.print out \]))
 
-(defn- write-json-bignum [x ^PrintWriter out escape-unicode]
+(defn- write-json-bignum [x ^PrintWriter out]
   (.print out (str x)))
 
 (defn- write-json-plain [x ^PrintWriter out]

      \, (recur (.read stream) result)
      \] (persistent! result)
      (do (.unread stream c)
          (let [element (do-parse stream true nil)]
            (recur (.read stream) (conj! result element)))))))

(defn- parse-object [^PushbackReader stream]

  clojure.data.json-new
  (:require [clojure.pprint :as pprint])
  (:import (java.io PrintWriter PushbackReader StringWriter
                    StringReader EOFException)))

;;; JSON READER

(def ^:dynamic ^:private *keywordize*)
(def ^:dynamic ^:private *bigdec*)

(declare -parse)

(defmacro ^:private codepoint [c]
  (int c))
