From 3f11f6e1e84c0240b81d324fdabea7ef4e14f97f Mon Sep 17 00:00:00 2001 From: Rich Hickey Date: Wed, 25 Feb 2009 12:56:42 +0000 Subject: made line-seq fully lazy --- src/clj/clojure/core.clj | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src') 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." -- cgit v1.2.3-18-g5258