Fix #76 by adding with-open in two places.

technomancy · Mar 28, 2014 · 59c77c1 · 59c77c1
1 parent 35897bc
commit 59c77c1
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 5 deletions.
diff --git a/src/slam/hound.clj b/src/slam/hound.clj
@@ -10,10 +10,11 @@
   ;; Reconstructing consists of three distinct phases:
   ;; asploding, regrowing, and stitching.
   (with-regrow-cache
-    (-> (io/reader filename)
-        asplode
-        regrow
-        stitch-up)))
+    (with-open [rdr (io/reader filename)]
+      (-> rdr
+          asplode
+          regrow
+          stitch-up))))
 
 (defn- read-comment-header
   "Read leading blank and comment lines from rdr."

diff --git a/src/slam/hound/search.clj b/src/slam/hound/search.clj
@@ -43,7 +43,8 @@
 
 (defn find-ns-form [^File f]
   (when (and (.isFile f) (clj? (.getName f)))
-    (read-ns-form (PushbackReader. (reader f)) f)))
+    (with-open [rdr (reader f)]
+      (read-ns-form (PushbackReader. rdr) f))))
 
 (defn namespaces-in-dir [dir]
   (sort (for [f (file-seq (file dir))