diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2009-06-04 21:09:09 +0000 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2009-06-04 21:09:09 +0000 |
| commit | 4b02d525f77487e0ec23f31e5aae71c078e2e17e (patch) | |
| tree | 71d1fcdc594ddb53dbe6a0fc754f3bec2a30f3de | |
| parent | b3efae2b9e35037bfc699dc6c7d579fe19027e42 (diff) | |
str_utils2.clj: added arglist metadata to multimethods
| -rw-r--r-- | src/clojure/contrib/str_utils2.clj | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/src/clojure/contrib/str_utils2.clj b/src/clojure/contrib/str_utils2.clj index 2bbc2649..03c36e0f 100644 --- a/src/clojure/contrib/str_utils2.clj +++ b/src/clojure/contrib/str_utils2.clj @@ -101,7 +101,8 @@ (defmulti #^{:doc "Replaces all instances of a in s with b. a and b may be - Characters, Strings, Pattern/String, or Pattern/Fn."} + Characters, Strings, Pattern/String, or Pattern/Fn." + :arglists '([s a b])} replace (fn [#^String s a b] [(class a) (class b)])) @@ -127,7 +128,8 @@ (defmulti #^{:doc "Replaces the first instance of a in s with b. a must be - Pattern, b may be String or Fn."} + Pattern, b may be String or Fn." + :arglists '([s a b])} replace-first (fn [s a b] [(class a) (class b)])) |