From b9ccb2c49232b90766c12d104364b51f15ad596b Mon Sep 17 00:00:00 2001
From: Rich Hickey <richhickey@gmail.com>
Date: Thu, 18 Oct 2007 14:01:40 +0000
Subject: fixed bug in iterate

---
 src/boot.clj | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/boot.clj b/src/boot.clj
index 4cec9172..012e3a1d 100644
--- a/src/boot.clj
+++ b/src/boot.clj
@@ -457,8 +457,7 @@
   (take n (repeat x)))
   
 (defn iterate [f x]
- (let [v (f x)]
-   (lazy-cons v (iterate f v))))
+   (lazy-cons x (iterate f (f x))))
 
 
 (defn merge [& maps]
-- 
cgit v1.2.3-18-g5258