diff options
| -rw-r--r-- | str-utils.clj | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/str-utils.clj b/str-utils.clj index 22100874..8c91836f 100644 --- a/str-utils.clj +++ b/str-utils.clj @@ -41,7 +41,4 @@ "Returns a string of all elements in 'sequence', separated by 'separator'. Like Perl's 'join'." [separator sequence] - (reduce (fn - ([] (str)) ; in case sequence is empty - ([total next] (str total separator next))) - (seq sequence))) + (apply str (interpose separator sequence))) |