Minor modifications, adding comments

lib/analysis/Dataflow.ml

@@ -41,7 +41,9 @@ module Make (M: Cfg.PrintableType) (I: Cfg.PrintableType) = struct
     match Utility.equality a.internalin b.internalin,
           Utility.equality a.internalout b.internalout,
           (List.fold_left2 (fun acc (ain, aout) (bin, bout)
-                            -> acc && (Utility.equality ain bin) && (Utility.equality aout bout)
+                             -> acc &&
+                                (Utility.equality ain bin) &&
+                                (Utility.equality aout bout)
             ) true a.internalbetween b.internalbetween)
     with
     | true, true, true -> true
@@ -54,7 +56,7 @@ module Make (M: Cfg.PrintableType) (I: Cfg.PrintableType) = struct
     internalvar: internalnode Cfg.NodeMap.t;
   }
 
-  let compareinternal (a: internalnode Cfg.NodeMap.t) (b: internalnode Cfg.NodeMap.t) =
+  let compareinternal a b =
     Cfg.NodeMap.fold
       (fun node bi acc ->
          match Cfg.NodeMap.find_opt node a with
@@ -141,7 +143,9 @@ module Make (M: Cfg.PrintableType) (I: Cfg.PrintableType) = struct
 
   let fixed_point
       ?(init : (elt list -> internalnode) =
-               (fun _ -> {internalin = []; internalout = []; internalbetween = []}))
+               (fun _ -> {internalin = [];
+                          internalout = [];
+                          internalbetween = []}))
       ?(update : (t -> Cfg.Node.t -> internalnode) =
                  (fun t n -> Cfg.NodeMap.find n t.internalvar))
       (t: t)
@@ -150,7 +154,7 @@ module Make (M: Cfg.PrintableType) (I: Cfg.PrintableType) = struct
        the update function takes the node and the whole structure and is
        expected to return the updated structure for the appropriate node,
        update function is applied to the resulting structure until no change is
-       observed
+       observed with compareinternal function
     *)
     let rec helper t =
       let newt =

lib/analysis/Dataflow.mli

@@ -18,7 +18,9 @@ module type C = sig
   val from_cfg : cfgt -> t
   val to_cfg : t -> cfgt
 
-  val fixed_point : ?init:(elt list -> internalnode) -> ?update:(t -> Cfg.Node.t -> internalnode) -> t -> t
+  val fixed_point :
+    ?init:(elt list -> internalnode) ->
+    ?update:(t -> Cfg.Node.t -> internalnode) -> t -> t
 
   val pp : out_channel -> t -> unit
 end