# HG changeset patch
# User Matthias Görgens <matthias.goergens@xxxxxxxxxx>
# 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