X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Fcommon_sig.ml;h=0e53b92f9098fb66cb53768fb6aa457ddb9a724d;hp=1bb80a9f777c933544b96b73d4c1a855a7d02635;hb=a601c67e92d85f7096db693e4fde86950be598c6;hpb=aade6d9ba2e2b65e021de8a1c3a2d3874aa5742e

diff --git a/src/common_sig.ml b/src/common_sig.ml
index 1bb80a9..0e53b92 100644
--- a/src/common_sig.ml
+++ b/src/common_sig.ml
@@ -88,6 +88,8 @@ sig
   val subset : t -> t -> bool
   val iter : (elt -> unit) -> t -> unit
   val fold : (elt -> 'a -> 'a) -> t -> 'a -> 'a
+  val fold_left : (elt -> 'a -> 'a) -> t -> 'a -> 'a
+  val fold_right : (elt -> 'a -> 'a) -> t -> 'a -> 'a
   val for_all : (elt -> bool) -> t -> bool
   val exists : (elt -> bool) -> t -> bool
   val filter : (elt -> bool) -> t -> t