diff options
| author | Stuart Halloway <stu@thinkrelevance.com> | 2010-05-17 15:25:20 -0400 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2010-05-19 20:44:37 -0400 |
| commit | 46d004601d1f23aaec5cfe26c840632df1f2dd5a (patch) | |
| tree | 9d73d4098d241ac09d729627d1fbef08957ea9e8 | |
| parent | cb5dc129c84022e6430ce86baeca4e63dc6fce92 (diff) | |
bring reduce var names and docstring into line, #344
Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
| -rw-r--r-- | src/clj/clojure/core.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj index cb17f492..bece7d4c 100644 --- a/src/clj/clojure/core.clj +++ b/src/clj/clojure/core.clj @@ -5251,9 +5251,9 @@ (if-let [s (seq coll)] (reduce f (first s) (next s)) (f))) - ([f start coll] + ([f val coll] (let [s (seq coll)] - (clojure.core.protocols/internal-reduce s f start)))) + (clojure.core.protocols/internal-reduce s f val)))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; futures (needs proxy);;;;;;;;;;;;;;;;;; (defn future-call |