Permalink
Browse files

Fixed weak hold-unto-head problem in partition-by, refs #769

Signed-off-by: Stuart Sierra <mail@stuartsierra.com>
  • Loading branch information...
1 parent 4461d52 commit 5f9d6a02c530a02251197e1b844af37440a6b569 @kotarak kotarak committed with stuartsierra Jun 21, 2011
Showing with 3 additions and 3 deletions.
  1. +3 −3 src/clj/clojure/core.clj
View
@@ -6230,7 +6230,7 @@
(assoc! ret k (conj (get ret k []) x))))
(transient {}) coll)))
-(defn partition-by
+(defn partition-by
"Applies f to each value in coll, splitting it each time f returns
a new value. Returns a lazy seq of partitions."
{:added "1.2"
@@ -6240,8 +6240,8 @@
(when-let [s (seq coll)]
(let [fst (first s)
fv (f fst)
- run (cons fst (take-while #(= fv (f %)) (rest s)))]
- (cons run (partition-by f (drop (count run) s)))))))
+ run (cons fst (take-while #(= fv (f %)) (next s)))]
+ (cons run (partition-by f (seq (drop (count run) s))))))))
(defn frequencies
"Returns a map from distinct items in coll to the number of times

0 comments on commit 5f9d6a0

Please sign in to comment.