Memory Leak?

lazy-read-csv.clj

(defn lazy-read-csv
  "This one has lazily reads from the file and generates the CSV data.

  It will leak if the sequence is not fully consumed."
  ([csv-file]
   (let [in-file (io/text-reader csv-file)                    ;; FB: io/reader
         csv-seq (csv/read-csv in-file)
         lazy (fn lazy [wrapped]
                (lazy-seq
                  (if-let [s (seq wrapped)]
                    (cons (first s) (lazy (rest s)))
                    (.Close in-file))))]                      ;; FB: .close
     (lazy csv-seq))))