# HG changeset patch
# User Matthias Goergens <matthias.goergens@xxxxxxxxxx>
# Date 1274191678 -3600
# Node ID 2cdc87ed18e96f3e4d3d8d8345dccf348d0899d1
# Parent  131939cfe70b9336d7d9e989eeca97dd5ecc17fa
Extended a comment in stdext/stringext.ml

Signed-off-by: Matthias Goergens <Matthias.Goergens@xxxxxxxxxx>

diff --git a/stdext/stringext.ml b/stdext/stringext.ml
--- a/stdext/stringext.ml
+++ b/stdext/stringext.ml
@@ -89,7 +89,7 @@ let escaped ?rules string = match rules 
 		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