diff options
| author | Rich Hickey <richhickey@gmail.com> | 2008-03-12 19:11:33 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2008-03-12 19:11:33 +0000 |
| commit | 3ac3bcbd65c828d90853902ad93abbf6884b4d81 (patch) | |
| tree | 936df438a7630202b9cf39665cb5f10de18b14e6 /src | |
| parent | 8a165b233e9beab13ed73bcf5d41f40affac6509 (diff) | |
fixed slurp not closing file
Diffstat (limited to 'src')
| -rw-r--r-- | src/boot.clj | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/boot.clj b/src/boot.clj index c399f0f5..2870a450 100644 --- a/src/boot.clj +++ b/src/boot.clj @@ -2206,14 +2206,14 @@ make-proxy [classes method-map] (defn slurp "Reads the file named by f into a string and returns it." [f] - (let [r (new java.io.BufferedReader (new java.io.FileReader f)) - sb (new StringBuilder)] + (with-open r (new java.io.BufferedReader (new java.io.FileReader f)) + (let [sb (new StringBuilder)] (loop [c (. r (read))] (if (neg? c) (str sb) (do (. sb (append (char c))) - (recur (. r (read)))))))) + (recur (. r (read))))))))) (defn subs "Returns the substring of s beginning at start inclusive, and ending |