 ;;; 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

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

          \return    (.append sb "\\r")
          \tab       (.append sb "\\t")
          ;; Unicode characters that Javascript forbids raw in strings
          :js-separators (if *escape-js-separators*
                           (.append sb (format "\\u%04x" cp))
                           (.appendCodePoint sb cp))
          ;; Any other character is Unicode
          (if *escape-unicode*
            (.append sb (format "\\u%04x" cp)) ; Hexadecimal-escaped
