Pass lazy seq of file lines to function

Question

Why does this bit of code not work?

(defn with-file [fname fn]
  (with-open [r (reader fname)]
    (fn (line-seq r))))

(with-file "data/input_d2" (