 (defn string-reader
   "Creates a StringReader from a given string"
   ([^String s]
-     (StringReader. s (count s) 0)))
+   (StringReader. s (count s) 0)))
 
 (defn string-push-back-reader
   "Creates a PushbackReader from a given string"
   ([s]
-     (string-push-back-reader s 1))
+   (string-push-back-reader s 1))
   ([^String s buf-len]
-     (PushbackReader. (string-reader s) (object-array buf-len) buf-len buf-len)))
+   (PushbackReader. (string-reader s) (object-array buf-len) buf-len buf-len)))
 
 (defn input-stream-reader
   "Creates an InputStreamReader from an InputStream"


(ns ^{:doc "Protocols and default Reader types implementation"
      :author "Bronsa"}
  clojure.tools.reader.reader-types
  (:refer-clojure :exclude [char read-line])
  (:require [clojure.tools.reader.impl.utils :refer
             [char whitespace? newline? compile-if >=clojure-1-5-alpha*? make-var]])


(defn- drop-last-logged-char
  "Removes the last logged character from all currently active source
  logging frames. Called when pushing a character back."
  [source-log-frames]
  (when-let [^StringBuilder buffer (:buffer @source-log-frames)]
    (.deleteCharAt buffer (dec (.length buffer)))))
