diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/boot.clj | 12 | ||||
| -rw-r--r-- | src/parallel.clj | 2 |
2 files changed, 7 insertions, 7 deletions
diff --git a/src/boot.clj b/src/boot.clj index 24ff6e73..312d4e9b 100644 --- a/src/boot.clj +++ b/src/boot.clj @@ -453,12 +453,12 @@ (f)))) ([f val coll] (let [s (seq coll)] - (when (instance? clojure.lang.IReduce s) - (. #^clojure.lang.IReduce s (reduce f val))) - ((fn [f val s] - (if s - (recur f (f val (first s)) (rest s)) - val)) f val s)))) + (if (instance? clojure.lang.IReduce s) + (. #^clojure.lang.IReduce s (reduce f val)) + ((fn [f val s] + (if s + (recur f (f val (first s)) (rest s)) + val)) f val s))))) (defn reverse "Returns a seq of the items in coll in reverse order. Not lazy." diff --git a/src/parallel.clj b/src/parallel.clj index bc9d5a9a..58fed289 100644 --- a/src/parallel.clj +++ b/src/parallel.clj @@ -145,7 +145,7 @@ pvec. ([coll comp] (. (par coll) max comp))) (defn pmin - "Returns the maximum element, presuming Comparable elements, unless + "Returns the minimum element, presuming Comparable elements, unless a Comparator comp is supplied" ([coll] (. (par coll) min)) ([coll comp] (. (par coll) min comp))) |