diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/boot.clj | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/src/boot.clj b/src/boot.clj index 3f39ff3a..0ac2383b 100644 --- a/src/boot.clj +++ b/src/boot.clj @@ -2058,19 +2058,19 @@ make-proxy [classes method-map] [#^java.util.regex.Pattern re s] (. re (matcher s))) -(defn - #^{:doc "Returns the groups from the most recent match/find. If - there are no nested groups, returns a string of the entire - match. If there are nested groups, returns a vector of the - groups, the first element being the entire match."} -re-groups [#^java.util.regex.Matcher m] - (let [gc (. m (groupCount))] - (if (zero? gc) - (. m (group)) - (loop [ret [] c 0] - (if (<= c gc) - (recur (conj ret (. m (group c))) (inc c)) - ret))))) +(defn re-groups + "Returns the groups from the most recent match/find. If there are no + nested groups, returns a string of the entire match. If there are + nested groups, returns a vector of the groups, the first element + being the entire match." + [#^java.util.regex.Matcher m] + (let [gc (. m (groupCount))] + (if (zero? gc) + (. m (group)) + (loop [ret [] c 0] + (if (<= c gc) + (recur (conj ret (. m (group c))) (inc c)) + ret))))) (defn re-seq "Returns a lazy sequence of successive matches of pattern in string, |