diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2008-07-13 20:24:02 +0000 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2008-07-13 20:24:02 +0000 |
| commit | 351ac601f396f054234ff08bd50d9f943ae59abc (patch) | |
| tree | 846635f319c3e3844e6550b40b6bfeebd7ef8ecb | |
| parent | c9299c5cbc6f05672aebbbbf9ea3e1cce26f1a14 (diff) | |
str-utils.clj: made str-join use clojure/interpose
| -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))) |