 (defn read-string
   "Reads one object from the string s"
   [s]
-  (read (push-back-reader s) true nil false))
+  (read (string-push-back-reader s) true nil false))
 
 (comment
  (def l (slurp "/home/bronsa/src/clojure/src/clj/clojure/core.clj"))


(defn read-meta
  [rdr _]
  (let [line (if (satisfies? LineNumberingReader rdr)
               (get-line-number rdr))
        m (desugar-meta (read rdr true nil true))]
    (when-not (map? m)
      (reader-error rdr "Metadata must be Symbol,Keyword,String or Map"))

        (set! prev line-start?)
        (set! line-start? (= ch \newline))
        (when line-start?
          (set! column 0)
          (update! line inc))
        (update! column inc)
        ch)))

  (peek-char [reader]
