# HG changeset patch
# User Matthias Goergens <matthias.goergens@xxxxxxxxxx>
# Date 1274194687 -3600
# Node ID 6901fb31a2a0b4bcaa0c9c5e7b86dcf611393303
# Parent  4b8cbbb3c47a029e6783c38c2bd94a2f05802dcf
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