Tweak

Author: bobzhang

jscomp/bin/all_ounit_tests.ml

@@ -8383,7 +8383,7 @@ let copy h = { h with data = Array.copy h.data }
 
 let length h = h.size
 
-let iter f h =
+let iter h f =
   let rec do_bucket = function
     | [ ] ->
       ()
@@ -8483,8 +8483,8 @@ sig
   val add :  t -> key -> unit
   val of_array : key array -> t 
   val check_add : t -> key -> bool
-  val mem :  t -> key -> bool
-  val iter: (key -> unit) ->  t -> unit
+  val mem : t -> key -> bool
+  val iter: t -> (key -> unit) -> unit
   val fold: (key -> 'b -> 'b) ->  t -> 'b -> 'b
   val length:  t -> int
   val stats:  t -> Hashtbl.statistics
@@ -8675,7 +8675,7 @@ val remove : 'a t -> 'a -> unit
 
 val mem : 'a t -> 'a -> bool
 
-val iter : ('a -> unit) -> 'a t -> unit
+val iter : 'a t -> ('a -> unit) -> unit
 
 val elements : 'a t -> 'a list
 
@@ -9677,7 +9677,7 @@ module type S = sig
 
   val replace: 'a t -> key -> 'a -> unit
   val mem: 'a t -> key -> bool
-  val iter: (key -> 'a -> unit) -> 'a t -> unit
+  val iter: 'a t -> (key -> 'a -> unit) -> unit
   val fold: (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b
   val length: 'a t -> int
   val stats: 'a t -> Hashtbl.statistics
@@ -9739,7 +9739,7 @@ let resize indexfun h =
 
 
 
-let iter f h =
+let iter h f =
   let rec do_bucket = function
     | Empty ->
       ()
@@ -15287,7 +15287,7 @@ let test2  (input : (string * string list) list) =
     (fun (x,others) -> List.iter add (x::others));
   let nodes_num = String_hashtbl.length tbl in
   let other_mapping = Array.make nodes_num "" in 
-  String_hashtbl.iter (fun k v  -> other_mapping.(v) <- k ) tbl ;
+  String_hashtbl.iter tbl (fun k v  -> other_mapping.(v) <- k ) ;
 
   let node_array = 
       Array.init nodes_num

jscomp/bin/bsb_native.ml

@@ -4304,7 +4304,7 @@ module type S = sig
 
   val replace: 'a t -> key -> 'a -> unit
   val mem: 'a t -> key -> bool
-  val iter: (key -> 'a -> unit) -> 'a t -> unit
+  val iter: 'a t -> (key -> 'a -> unit) -> unit
   val fold: (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b
   val length: 'a t -> int
   val stats: 'a t -> Hashtbl.statistics
@@ -4366,7 +4366,7 @@ let resize indexfun h =
 
 
 
-let iter f h =
+let iter h f =
   let rec do_bucket = function
     | Empty ->
       ()
@@ -10794,7 +10794,7 @@ let copy h = { h with data = Array.copy h.data }
 
 let length h = h.size
 
-let iter f h =
+let iter h f =
   let rec do_bucket = function
     | [ ] ->
       ()
@@ -10894,8 +10894,8 @@ sig
   val add :  t -> key -> unit
   val of_array : key array -> t 
   val check_add : t -> key -> bool
-  val mem :  t -> key -> bool
-  val iter: (key -> unit) ->  t -> unit
+  val mem : t -> key -> bool
+  val iter: t -> (key -> unit) -> unit
   val fold: (key -> 'b -> 'b) ->  t -> 'b -> 'b
   val length:  t -> int
   val stats:  t -> Hashtbl.statistics
@@ -16800,7 +16800,7 @@ let install_targets cwd (config : Bsb_config_types.t option) =
         | Some x -> 
           install_filename_sans_extension destdir None  x
       end;
-      String_hash_set.iter (install_filename_sans_extension destdir namespace) files_to_install;
+      String_hash_set.iter files_to_install (install_filename_sans_extension destdir namespace) ;
       Bsb_log.info "@{<info>Installing finished@} @.";
     end
 

jscomp/bin/bspack.ml

@@ -8059,7 +8059,7 @@ module type S = sig
 
   val replace: 'a t -> key -> 'a -> unit
   val mem: 'a t -> key -> bool
-  val iter: (key -> 'a -> unit) -> 'a t -> unit
+  val iter: 'a t -> (key -> 'a -> unit) -> unit
   val fold: (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b
   val length: 'a t -> int
   val stats: 'a t -> Hashtbl.statistics
@@ -8121,7 +8121,7 @@ let resize indexfun h =
 
 
 
-let iter f h =
+let iter h f =
   let rec do_bucket = function
     | Empty ->
       ()

jscomp/bsb/bsb_world.ml

@@ -64,7 +64,7 @@ let install_targets cwd (config : Bsb_config_types.t option) =
         | Some x -> 
           install_filename_sans_extension destdir None  x
       end;
-      String_hash_set.iter (install_filename_sans_extension destdir namespace) files_to_install;
+      String_hash_set.iter files_to_install (install_filename_sans_extension destdir namespace) ;
       Bsb_log.info "@{<info>Installing finished@} @.";
     end
 

jscomp/core/js_pass_flatten_and_mark_dead.ml

@@ -106,14 +106,14 @@ let mark_dead = object (self)
         Js_op_util.update_used_stats ident_info 
           (if b then Scanning_pure else Scanning_non_pure)
   method promote_dead = 
-    Ident_hashtbl.iter (fun _id (info : [`Info of J.ident_info  | `Recursive]) ->
+    Ident_hashtbl.iter ident_use_stats (fun _id (info : [`Info of J.ident_info  | `Recursive]) ->
       match info  with 
       | `Info ({used_stats = Scanning_pure} as info) -> 
           Js_op_util.update_used_stats info Dead_pure
       | `Info ({used_stats = Scanning_non_pure} as info) -> 
           Js_op_util.update_used_stats info Dead_non_pure
       | _ -> ())
-      ident_use_stats;
+      ;
     Ident_hashtbl.clear ident_use_stats (* clear to make it re-entrant *)
 
   method! program x = 

jscomp/core/js_pass_tailcall_inline.ml

@@ -77,7 +77,7 @@ let count_collects () =
         -> self#expression x 
     method! ident id = self#add_use id; self
     method get_stats = 
-      Ident_hashtbl.iter (fun ident (v : J.variable_declaration) -> 
+      Ident_hashtbl.iter defined_idents (fun ident v  -> 
           if Ident_set.mem export_set ident then 
             Js_op_util.update_used_stats v.ident_info Exported
           else 
@@ -93,7 +93,7 @@ let count_collects () =
               if !num = 1 then 
                 Js_op_util.update_used_stats v.ident_info 
                   (if pure then Once_pure else Used) 
-        ) defined_idents; defined_idents
+        ) ; defined_idents
   end
 
 

jscomp/core/lam_compile_env.ml

@@ -284,11 +284,11 @@ let get_required_modules
     extras 
     (hard_dependencies 
      : Lam_module_ident.Hash_set.t) : Lam_module_ident.t list =  
-  Lam_module_ident.Hash.iter (fun id  _  ->
+  Lam_module_ident.Hash.iter cached_tbl (fun id  _  ->
       if not @@ is_pure_module id 
-      then add  hard_dependencies id) cached_tbl ;
-  Lam_module_ident.Hash_set.iter (fun id  -> 
+      then add  hard_dependencies id);
+  Lam_module_ident.Hash_set.iter extras (fun id  -> 
       (if not @@ is_pure_module  id 
        then add hard_dependencies id : unit)
-    ) extras;
+    );
   Lam_module_ident.Hash_set.elements hard_dependencies

jscomp/core/lam_pass_count.ml

@@ -40,9 +40,9 @@ let pp_info fmt (x : used_info) =
   Format.fprintf fmt "(<captured:%b>:%d)"  x.captured x.times
 
 let pp_occ_tbl fmt tbl = 
-  Ident_hashtbl.iter (fun k v -> 
+  Ident_hashtbl.iter tbl (fun k v -> 
       Format.fprintf fmt "@[%a@ %a@]@." Ident.print k pp_info v 
-    ) tbl 
+    ) 
 (* The global table [occ] associates to each let-bound identifier
    the number of its uses (as a reference):
    - 0 if never used

jscomp/core/lam_stats.ml

@@ -70,15 +70,15 @@ type t = {
 let pp = Format.fprintf
 
 let pp_alias_tbl fmt (tbl : alias_tbl) = 
-  Ident_hashtbl.iter (fun k v -> pp fmt "@[%a -> %a@]@." Ident.print k Ident.print v)
-    tbl
+  Ident_hashtbl.iter  tbl (fun k v -> pp fmt "@[%a -> %a@]@." Ident.print k Ident.print v)
+  
 
 
 
 let pp_ident_tbl fmt (ident_tbl : ident_tbl) = 
-  Ident_hashtbl.iter (fun k v -> pp fmt "@[%a -> %a@]@." 
+  Ident_hashtbl.iter ident_tbl (fun k v -> pp fmt "@[%a -> %a@]@." 
     Ident.print k Lam_id_kind.print v)
-    ident_tbl
+    
 
 let print fmt (v : t) = 
     pp fmt "@[Alias table:@ @[%a@]@]" pp_alias_tbl v.alias_tbl ;    

jscomp/ext/hash_set_gen.ml

@@ -55,7 +55,7 @@ let copy h = { h with data = Array.copy h.data }
 
 let length h = h.size
 
-let iter f h =
+let iter h f =
   let rec do_bucket = function
     | [ ] ->
       ()
@@ -155,8 +155,8 @@ sig
   val add :  t -> key -> unit
   val of_array : key array -> t 
   val check_add : t -> key -> bool
-  val mem :  t -> key -> bool
-  val iter: (key -> unit) ->  t -> unit
+  val mem : t -> key -> bool
+  val iter: t -> (key -> unit) -> unit
   val fold: (key -> 'b -> 'b) ->  t -> 'b -> 'b
   val length:  t -> int
   val stats:  t -> Hashtbl.statistics

jscomp/ext/hash_set_poly.mli

@@ -38,7 +38,7 @@ val remove : 'a t -> 'a -> unit
 
 val mem : 'a t -> 'a -> bool
 
-val iter : ('a -> unit) -> 'a t -> unit
+val iter : 'a t -> ('a -> unit) -> unit
 
 val elements : 'a t -> 'a list
 

jscomp/ext/hashtbl_gen.ml

@@ -40,7 +40,7 @@ module type S = sig
 
   val replace: 'a t -> key -> 'a -> unit
   val mem: 'a t -> key -> bool
-  val iter: (key -> 'a -> unit) -> 'a t -> unit
+  val iter: 'a t -> (key -> 'a -> unit) -> unit
   val fold: (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b
   val length: 'a t -> int
   val stats: 'a t -> Hashtbl.statistics
@@ -102,7 +102,7 @@ let resize indexfun h =
 
 
 
-let iter f h =
+let iter h f =
   let rec do_bucket = function
     | Empty ->
       ()

jscomp/ounit_tests/ounit_scc_tests.ml

@@ -266,7 +266,7 @@ let test2  (input : (string * string list) list) =
     (fun (x,others) -> List.iter add (x::others));
   let nodes_num = String_hashtbl.length tbl in
   let other_mapping = Array.make nodes_num "" in 
-  String_hashtbl.iter (fun k v  -> other_mapping.(v) <- k ) tbl ;
+  String_hashtbl.iter tbl (fun k v  -> other_mapping.(v) <- k ) ;
 
   let node_array = 
       Array.init nodes_num

lib/bsb.ml

@@ -4304,7 +4304,7 @@ module type S = sig
 
   val replace: 'a t -> key -> 'a -> unit
   val mem: 'a t -> key -> bool
-  val iter: (key -> 'a -> unit) -> 'a t -> unit
+  val iter: 'a t -> (key -> 'a -> unit) -> unit
   val fold: (key -> 'a -> 'b -> 'b) -> 'a t -> 'b -> 'b
   val length: 'a t -> int
   val stats: 'a t -> Hashtbl.statistics
@@ -4366,7 +4366,7 @@ let resize indexfun h =
 
 
 
-let iter f h =
+let iter h f =
   let rec do_bucket = function
     | Empty ->
       ()
@@ -10794,7 +10794,7 @@ let copy h = { h with data = Array.copy h.data }
 
 let length h = h.size
 
-let iter f h =
+let iter h f =
   let rec do_bucket = function
     | [ ] ->
       ()
@@ -10894,8 +10894,8 @@ sig
   val add :  t -> key -> unit
   val of_array : key array -> t 
   val check_add : t -> key -> bool
-  val mem :  t -> key -> bool
-  val iter: (key -> unit) ->  t -> unit
+  val mem : t -> key -> bool
+  val iter: t -> (key -> unit) -> unit
   val fold: (key -> 'b -> 'b) ->  t -> 'b -> 'b
   val length:  t -> int
   val stats:  t -> Hashtbl.statistics
@@ -16800,7 +16800,7 @@ let install_targets cwd (config : Bsb_config_types.t option) =
         | Some x -> 
           install_filename_sans_extension destdir None  x
       end;
-      String_hash_set.iter (install_filename_sans_extension destdir namespace) files_to_install;
+      String_hash_set.iter files_to_install (install_filename_sans_extension destdir namespace) ;
       Bsb_log.info "@{<info>Installing finished@} @.";
     end
 

lib/bsdep.ml

@@ -29939,7 +29939,7 @@ let copy h = { h with data = Array.copy h.data }
 
 let length h = h.size
 
-let iter f h =
+let iter h f =
   let rec do_bucket = function
     | [ ] ->
       ()
@@ -30039,8 +30039,8 @@ sig
   val add :  t -> key -> unit
   val of_array : key array -> t 
   val check_add : t -> key -> bool
-  val mem :  t -> key -> bool
-  val iter: (key -> unit) ->  t -> unit
+  val mem : t -> key -> bool
+  val iter: t -> (key -> unit) -> unit
   val fold: (key -> 'b -> 'b) ->  t -> 'b -> 'b
   val length:  t -> int
   val stats:  t -> Hashtbl.statistics
@@ -30090,7 +30090,7 @@ val remove : 'a t -> 'a -> unit
 
 val mem : 'a t -> 'a -> bool
 
-val iter : ('a -> unit) -> 'a t -> unit
+val iter : 'a t -> ('a -> unit) -> unit
 
 val elements : 'a t -> 'a list
 

lib/bsppx.ml

@@ -11877,7 +11877,7 @@ let copy h = { h with data = Array.copy h.data }
 
 let length h = h.size
 
-let iter f h =
+let iter h f =
   let rec do_bucket = function
     | [ ] ->
       ()
@@ -11977,8 +11977,8 @@ sig
   val add :  t -> key -> unit
   val of_array : key array -> t 
   val check_add : t -> key -> bool
-  val mem :  t -> key -> bool
-  val iter: (key -> unit) ->  t -> unit
+  val mem : t -> key -> bool
+  val iter: t -> (key -> unit) -> unit
   val fold: (key -> 'b -> 'b) ->  t -> 'b -> 'b
   val length:  t -> int
   val stats:  t -> Hashtbl.statistics
@@ -12028,7 +12028,7 @@ val remove : 'a t -> 'a -> unit
 
 val mem : 'a t -> 'a -> bool
 
-val iter : ('a -> unit) -> 'a t -> unit
+val iter : 'a t -> ('a -> unit) -> unit
 
 val elements : 'a t -> 'a list