Signed-off-by: Matthias Goergens <[email protected]>
stdext/stringext.ml | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-)
# HG changeset patch # User Matthias Goergens <[email protected]> # Date 1274191678 -3600 # Node ID 2cdc87ed18e96f3e4d3d8d8345dccf348d0899d1 # Parent 131939cfe70b9336d7d9e989eeca97dd5ecc17fa Extended a comment in stdext/stringext.ml Signed-off-by: Matthias Goergens <[email protected]> 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
_______________________________________________ xen-api mailing list [email protected] http://lists.xensource.com/mailman/listinfo/xen-api
