From db2710113b7019e6d28847b7cb598ace9ee923b9 Mon Sep 17 00:00:00 2001
From: Rich Hickey <richhickey@gmail.com>
Date: Fri, 13 Feb 2009 15:08:58 +0000
Subject: [PATCH] [lazy] fixed take-while

---
 src/clj/clojure/core.clj | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj
index 3daccc6bf0..eb3100559b 100644
--- a/src/clj/clojure/core.clj
+++ b/src/clj/clojure/core.clj
@@ -1512,8 +1512,8 @@
   [pred coll]
   (lazy-seq
    (when-let [s (seq coll)]
-     (when (pred (first s)))
-       (cons (first s) (take-while pred (more s))))))
+       (when (pred (first s))
+         (cons (first s) (take-while pred (more s)))))))
 
 (defn drop
   "Returns a lazy sequence of all but the first n items in coll."