Permalink
Browse files

Fix file handle leak

  • Loading branch information...
juergenhoetzel committed Apr 14, 2012
1 parent 4e6a235 commit 8316196c8a6c6e7af29d6133a6df13706152e553
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/bultitude/core.clj
View
@@ -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))

0 comments on commit 8316196

Please sign in to comment.