str-utils3: substitute type-specific fns for 'replace' multimethod

'replace' doesn't need runtime dispatch, so multimethods are
unnecessary performance overhead.

New functions: replace-char, replace-str, replace-re, and replace-by

1 files changed, 5 insertions, 5 deletions

diff --git a/src/test/clojure/clojure/contrib/test_contrib/str_utils3.clj b/src/test/clojure/clojure/contrib/test_contrib/str_utils3.clj
index 2625c168..9fcb176d 100644
--- a/src/test/clojure/clojure/contrib/test_contrib/str_utils3.clj
+++ b/src/test/clojure/clojure/contrib/test_contrib/str_utils3.clj
@@ -48,13 +48,13 @@
   (is (= "tab" (s/reverse "bat"))))
 
 (deftest t-replace
-  (is (= "faabar" (s/replace \o \a "foobar")))
-  (is (= "barbarbar" (s/replace "foo" "bar" "foobarfoo")))
-  (is (= "FOObarFOO" (s/replace #"foo" s/upper-case  "foobarfoo"))))
+  (is (= "faabar" (s/replace-char \o \a "foobar")))
+  (is (= "barbarbar" (s/replace-str "foo" "bar" "foobarfoo")))
+  (is (= "FOObarFOO" (s/replace-by #"foo" s/upper-case  "foobarfoo"))))
 
 (deftest t-replace-first
-  (is (= "barbarfoo" (s/replace-first #"foo" "bar" "foobarfoo")))
-  (is (= "FOObarfoo" (s/replace-first #"foo" s/upper-case "foobarfoo"))))
+  (is (= "barbarfoo" (s/replace-first-re #"foo" "bar" "foobarfoo")))
+  (is (= "FOObarfoo" (s/replace-first-by #"foo" s/upper-case "foobarfoo"))))
 
 (deftest t-partition
   (is (= (list "" "abc" "123" "def")