Fix file handle leak

juergenhoetzel · Apr 14, 2012 · 8316196 · 8316196
1 parent 4e6a235
commit 8316196
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/bultitude/core.clj b/src/bultitude/core.clj
@@ -33,7 +33,7 @@
   [dir]
   (for [f (file-seq (io/file dir))
         :when (and (clj? f) (.canRead f))
-        :let [ns-form (read-ns-form (PushbackReader. (io/reader f)))]
+        :let [ns-form (with-open [r (PushbackReader. (io/reader f))] (read-ns-form r))]
         :when ns-form]
     ns-form))