diff options
| author | Rich Hickey <richhickey@gmail.com> | 2009-02-25 12:56:42 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2009-02-25 12:56:42 +0000 |
| commit | 3f11f6e1e84c0240b81d324fdabea7ef4e14f97f (patch) | |
| tree | 09f1d65938498a749db129d0d43a7e6298ec9049 /src | |
| parent | a19bccce4c6318a189a3c2427adefbf48298ccf6 (diff) | |
made line-seq fully lazy
Diffstat (limited to 'src')
| -rw-r--r-- | src/clj/clojure/core.clj | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj index 81bee135..4867e31c 100644 --- a/src/clj/clojure/core.clj +++ b/src/clj/clojure/core.clj @@ -1657,10 +1657,10 @@ "Returns the lines of text from rdr as a lazy sequence of strings. rdr must implement java.io.BufferedReader." [#^java.io.BufferedReader rdr] - (let [line (. rdr (readLine))] - (lazy-seq - (when line - (cons line (line-seq rdr)))))) + (lazy-seq + (let [line (. rdr (readLine))] + (when line + (cons line (line-seq rdr)))))) (defn comparator "Returns an implementation of java.util.Comparator based upon pred." |