diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/clj/clojure/core/protocols.clj | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/src/clj/clojure/core/protocols.clj b/src/clj/clojure/core/protocols.clj index 737345d1..bcf4f7b5 100644 --- a/src/clj/clojure/core/protocols.clj +++ b/src/clj/clojure/core/protocols.clj @@ -24,11 +24,13 @@ (internal-reduce [s f val] (if-let [s (seq s)] - (recur (chunk-next s) - f - (.reduce (chunk-first s) f val)) + (if (chunked-seq? s) + (recur (chunk-next s) + f + (.reduce (chunk-first s) f val)) + (internal-reduce s f val)) val)) - + clojure.lang.StringSeq (internal-reduce [str-seq f val] |