reducible slurp

gistfile1.clj

(require '[clojure.java.io :as jio])

(deftype Slurp [filename]
  clojure.core.protocols/CollReduce
  (coll-reduce [this f1]
    (clojure.core.protocols/coll-reduce this f1 (f1)))
  (coll-reduce [_ f1 init]
    (with-open [#^java.io.Reader r
                (apply jio/reader filename nil)]
      (loop [ret init
             c (.read r)]
        (if (neg? c)
          ret
          (let [ret (f1 ret (char c))]
            (if (reduced? ret)
              @ret
              (recur ret (.read r)))))))))

(defn slurp* [filename]
  (Slurp. filename))