aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/clojure/contrib/str_utils2.clj2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/clojure/contrib/str_utils2.clj b/src/clojure/contrib/str_utils2.clj
index 988d6a6d..40765dfc 100644
--- a/src/clojure/contrib/str_utils2.clj
+++ b/src/clojure/contrib/str_utils2.clj
@@ -43,6 +43,7 @@
[bindings & body]
(assert (vector bindings))
(assert (= 2 (count bindings)))
+ ;; This seems to be the fastest way to iterate over characters.
`(let [#^String s# ~(second bindings)]
(dotimes [i# (.length s#)]
(let [~(first bindings) (.charAt s# i#)]
@@ -58,7 +59,6 @@
[bindings & body]
(assert (vector bindings))
(assert (= 2 (count bindings)))
- ;; This seems to be the fastest way to iterate over characters.
(let [character (first bindings)
string (second bindings)]
`(let [#^String s# ~string