From fda7f6f65356c1cf8073a7309bf47cdc84880156 Mon Sep 17 00:00:00 2001 From: Matthias Goergens Date: Thu, 17 Jun 2010 22:16:18 +0100 Subject: [PATCH] Extended a comment in stdext/stringext.ml Signed-off-by: Matthias Goergens --- stdext/stringext.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.39.5