Release coccinelle-0.1.3

[bpt/coccinelle.git] / commons / ocollection.ml

diff --git a/commons/ocollection.ml b/commons/ocollection.ml
index 38e4b96..e6b2a3d 100644 (file)
--- a/commons/ocollection.ml
+++ b/commons/ocollection.ml
@@ -74,6 +74,12 @@ object(o: 'o)
   method add2: 'a -> unit = fun a -> 
     o#add a +> ignore;
     ()
+  method del2: 'a -> unit = fun a -> 
+    o#del a +> ignore;
+    ()
+  method clear: unit = 
+    o#iter (fun e -> o#del2 e);
+