 ;;; JSON WRITER
 
 (def ^{:dynamic true :private true} *escape-unicode*)
-(def ^{:dynamic true :private true} *escape-separators*)
+(def ^{:dynamic true :private true} *escape-js-separators*)
 (def ^{:dynamic true :private true} *escape-slash*)
 
 (defprotocol JSONWriter

        returns itself, the key-value pair will be omitted from the
        output. This option does not apply to non-map collections."
  [x ^Writer writer & options]
  (let [{:keys [escape-unicode escape-separators escape-slash key-fn value-fn]
         :or {escape-unicode true
              escape-separators true
              escape-slash true
              key-fn default-write-key-fn
              value-fn default-value-fn}} options]
    (binding [*escape-unicode* escape-unicode
              *escape-separators* escape-separators
              *escape-slash* escape-slash
              *key-fn* key-fn
              *value-fn* value-fn]

        [(remove #{(codepoint \") (codepoint \\) (codepoint \/)}
                 (range 32 127))
         result]
        (= test :js-separators)
        ['(16r2028 16r2029) result]
        :else
        [(int test) result]))
