Not passing env as an argument

Author: bobzhang

jscomp/core/lam_compile_env.ml

@@ -161,7 +161,7 @@ type _ t =
 let query_and_add_if_not_exist 
     (type u)
     (oid : Lam_module_ident.t) 
-    (env : u t)  ~(found: bool -> _) =
+     ~(found: bool -> _) =
   match Lam_module_ident.Hash.find_opt cached_tbl oid with 
   | None -> 
     begin match oid.kind with
@@ -240,7 +240,7 @@ let add = Lam_module_ident.Hash_set.add
 (* Conservative interface *)
 let is_pure_module (id : Lam_module_ident.t)  = 
   id.kind = Runtime ||
-  query_and_add_if_not_exist id No_env
+  query_and_add_if_not_exist id 
     ~found:(fun x ->  x)
 
 let get_required_modules 

jscomp/core/lam_compile_env.mli

@@ -98,8 +98,8 @@ val query_external_id_info :
 
 val query_and_add_if_not_exist : 
   Lam_module_ident.t ->
-  'a t -> 
-  found:(bool -> 'b) -> 'b
+  found:(bool -> 'b) ->
+  'b
 
 val is_pure_module : Lam_module_ident.t -> bool
 

jscomp/core/lam_stats_export.ml

@@ -111,7 +111,6 @@ let get_dependent_module_effect
         (fun id -> 
            id.kind = Runtime ||
            Lam_compile_env.query_and_add_if_not_exist id 
-             (Has_env meta.env )
              ~found:(fun pure -> pure)
         ) in 
     Ext_option.map  non_pure_module (fun x -> Lam_module_ident.name x)