Release coccinelle-0.1.2

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

diff --git a/commons/ocollection.ml b/commons/ocollection.ml
index 6869f4b..38e4b96 100644 (file)
--- a/commons/ocollection.ml
+++ b/commons/ocollection.ml
@@ -71,6 +71,11 @@ object(o: 'o)
   method virtual null: bool      (* can do default with: lenght(tolist)= 0 *)
 
 
+  method add2: 'a -> unit = fun a -> 
+    o#add a +> ignore;
+    ()
+
+
 
   method fold: 'b. ('b -> 'a -> 'b) -> 'b -> 'b = fun f a -> 
     let a = ref a in