Patch subject is complete summary.
stdext/listext.ml | 2 ++ stdext/listext.mli | 2 ++ 2 files changed, 4 insertions(+), 0 deletions(-)
# HG changeset patch # User Matthias Görgens <[email protected]> # Date 1268698899 0 # Node ID 60c1e7bf1a307f6527e10db53c5ccc292e09c480 # Parent 32a8c736220d8795660b2a4a5cc2295945f0879d stdext/Listext got a function make_assoc to build Lisp-like assoc lists diff -r 32a8c736220d -r 60c1e7bf1a30 stdext/listext.ml --- a/stdext/listext.ml +++ b/stdext/listext.ml @@ -197,6 +197,8 @@ | a::_ -> Some a | [] -> None +let make_assoc op l = map (fun item -> item, op item) l + end diff -r 32a8c736220d -r 60c1e7bf1a30 stdext/listext.mli --- a/stdext/listext.mli +++ b/stdext/listext.mli @@ -178,4 +178,6 @@ val tails : 'a list -> ('a list) list val safe_hd : 'a list -> 'a option + val make_assoc : ('a -> 'b) -> 'a list -> ('a * 'b) list + end
_______________________________________________ xen-api mailing list [email protected] http://lists.xensource.com/mailman/listinfo/xen-api
