From: Matthias Goergens Date: Thu, 17 Jun 2010 21:16:18 +0000 (+0100) Subject: Extended a comment in stdext/stringext.ml X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=b3c3cef9de80cdd7b1f2a1bfeb8df9d811921e5c;p=xcp%2Fxen-api-libs.git Extended a comment in stdext/stringext.ml Signed-off-by: Matthias Goergens --- diff --git a/stdext/stringext.ml b/stdext/stringext.ml index 53b4943..5304a61 100644 --- a/stdext/stringext.ml +++ b/stdext/stringext.ml @@ -89,7 +89,7 @@ let escaped ?rules string = match rules with concat "" (fold_right aux string []) (** Take a predicate and a string, return a list of strings separated by -runs of characters where the predicate was true *) +runs of characters where the predicate was true (excluding those characters from the result) *) let split_f p str = let not_p = fun x -> not (p x) in let rec split_one p acc = function