Remove unused code

Author: bobzhang

jscomp/core/lam_compile_env.ml

@@ -224,19 +224,6 @@ let get_package_path_from_cmj
 let add = Lam_module_ident.Hash_set.add
 
 
-
-(* let is_pure_module (id : Lam_module_ident.t) = 
-  match id.kind with 
-  | Runtime -> true 
-  | External _ -> false
-  | Ml -> 
-    match Lam_module_ident.Hash.find_opt cached_tbl id with
-    | Some (Visit {cmj_table = {pure}}) -> pure 
-    | Some _ -> assert false 
-    | None ->  *)
-
-
-
 (* Conservative interface *)
 let is_pure_module (id : Lam_module_ident.t)  = 
   id.kind = Runtime ||

jscomp/core/lam_compile_env.mli

@@ -96,10 +96,6 @@ val query_external_id_info :
   string -> 
   ident_info
 
-val query_and_add_if_not_exist : 
-  Lam_module_ident.t ->
-  found:(bool -> 'b) ->
-  'b
 
 val is_pure_module : Lam_module_ident.t -> bool
 

jscomp/core/lam_stats_export.ml

@@ -107,12 +107,9 @@ let get_dependent_module_effect
   (external_ids : Lam_module_ident.t list) = 
   if maybe_pure = None then
     let non_pure_module =  
-      Ext_list.find_first_not external_ids
-        (fun id -> 
-           id.kind = Runtime ||
-           Lam_compile_env.query_and_add_if_not_exist id 
-             ~found:(fun pure -> pure)
-        ) in 
+      Ext_list.find_first_not external_ids        
+        Lam_compile_env.is_pure_module            
+    in 
     Ext_option.map  non_pure_module (fun x -> Lam_module_ident.name x)
   else 
     maybe_pure