diff options
| -rw-r--r-- | src/clj/clojure/core.clj | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj index d55d5bf4..ed240193 100644 --- a/src/clj/clojure/core.clj +++ b/src/clj/clojure/core.clj @@ -5870,11 +5870,14 @@ {:added "1.0"} ([f & opts] (let [opts (normalize-slurp-opts opts) - sb (StringBuilder.) - sw (java.io.StringWriter.)] + sb (StringBuilder.)] (with-open [#^java.io.Reader r (apply jio/reader f opts)] - (jio/copy r sw) - (str sw))))) + (loop [c (.read r)] + (if (neg? c) + (str sb) + (do + (.append sb (char c)) + (recur (.read r))))))))) (defn spit "Opposite of slurp. Opens f with writer, writes content, then |