inline is_a_functor_test due to simplification

Author: bobzhang

jscomp/core/lam_inline_util.ml

@@ -155,14 +155,14 @@ let simplify_alias
       let normal () = Lam.apply ( simpl fn) (Ext_list.map args simpl) loc status in
       begin 
         match Hash_ident.find_opt meta.ident_tbl v with
-        | Some (FunctionId {lambda = Some(Lfunction ({params; body} as m),
+        | Some (FunctionId {lambda = Some(Lfunction ({params; body; attr = {is_a_functor}} as m),
                                           rec_flag)
                            })
           -> 
 
           if Ext_list.same_length args params (* && false *)
           then               
-            if Lam_inline_util.maybe_functor v.name  
+            if is_a_functor = Functor_yes
             (* && (Set_ident.mem v meta.export_idents) && false *)
             then 
               (* TODO: check l1 if it is exported, 

jscomp/core/lam_inline_util.mli

@@ -74,12 +74,12 @@ let values_of_export
               only truly immutable values can be inlined
            *)
            then
-             if Lam_inline_util.should_be_functor lambda (* can also be submodule *)
-             then
+             match lambda with 
+             | Lfunction {attr = {is_a_functor = Functor_yes}} -> 
                if Lam_closure.is_closed lambda (* TODO: seriealize more*)
                then Some lambda
                else None
-             else 
+             | _ -> 
                let lam_size = Lam_analysis.size lambda in
                (* TODO:
                   1. global need re-assocate when do the beta reduction