diff options
| author | Rich Hickey <richhickey@gmail.com> | 2007-10-18 14:01:40 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2007-10-18 14:01:40 +0000 |
| commit | b9ccb2c49232b90766c12d104364b51f15ad596b (patch) | |
| tree | 57e67e398ce05c505cc8ffa8051ba88c5ef7caa0 /src | |
| parent | 5c4b0b8323fe091f5a6c5a0af041a41403fbf3fb (diff) | |
fixed bug in iterate
Diffstat (limited to 'src')
| -rw-r--r-- | src/boot.clj | 3 |
1 files changed, 1 insertions, 2 deletions
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] |