Extended a comment in stdext/stringext.ml

Signed-off-by: Matthias Goergens <Matthias.Goergens@citrix.com>

diff --git a/stdext/stringext.ml b/stdext/stringext.ml
index 53b4943fe62b80b5589acb36a72c4c6354b44d52..5304a616f282a98ae414bf61a7ed9ebb53dce96b 100644 (file)
--- 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