save BS_NATIVE macro

Author: bobzhang

jscomp/syntax/ast_exp_apply.ml

@@ -209,11 +209,7 @@ let app_exp_mapper
           Ast_attributes.is_bs with
       | None -> default_expr_mapper self e
       | Some pexp_attributes ->
-#if BS_NATIVE then
-        {e with pexp_attributes }
-#else
-        {e with pexp_desc = Ast_util.uncurry_fn_apply e.pexp_loc self fn (check_and_discard args) ;
-                pexp_attributes }
-      
-  
-#end
+        if !Clflags.bs_only then 
+          {e with pexp_desc = Ast_util.uncurry_fn_apply e.pexp_loc self fn (check_and_discard args) ;
+                  pexp_attributes }
+        else   {e with pexp_attributes } (* BS_NATIVE branch*)

lib/4.02.3/bsdep.ml

@@ -39131,12 +39131,10 @@ let app_exp_mapper
           Ast_attributes.is_bs with
       | None -> default_expr_mapper self e
       | Some pexp_attributes ->
-
-        {e with pexp_desc = Ast_util.uncurry_fn_apply e.pexp_loc self fn (check_and_discard args) ;
-                pexp_attributes }
-      
-  
-
+        if !Clflags.bs_only then 
+          {e with pexp_desc = Ast_util.uncurry_fn_apply e.pexp_loc self fn (check_and_discard args) ;
+                  pexp_attributes }
+        else   {e with pexp_attributes } (* BS_NATIVE branch*)
 
 end
 module Ast_exp_extension : sig 

lib/4.02.3/bsppx.ml

@@ -21237,12 +21237,10 @@ let app_exp_mapper
           Ast_attributes.is_bs with
       | None -> default_expr_mapper self e
       | Some pexp_attributes ->
-
-        {e with pexp_desc = Ast_util.uncurry_fn_apply e.pexp_loc self fn (check_and_discard args) ;
-                pexp_attributes }
-      
-  
-
+        if !Clflags.bs_only then 
+          {e with pexp_desc = Ast_util.uncurry_fn_apply e.pexp_loc self fn (check_and_discard args) ;
+                  pexp_attributes }
+        else   {e with pexp_attributes } (* BS_NATIVE branch*)
 
 end
 module Ast_exp_extension : sig 

lib/4.02.3/unstable/js_compiler.ml

@@ -21118,12 +21118,10 @@ let app_exp_mapper
           Ast_attributes.is_bs with
       | None -> default_expr_mapper self e
       | Some pexp_attributes ->
-
-        {e with pexp_desc = Ast_util.uncurry_fn_apply e.pexp_loc self fn (check_and_discard args) ;
-                pexp_attributes }
-      
-  
-
+        if !Clflags.bs_only then 
+          {e with pexp_desc = Ast_util.uncurry_fn_apply e.pexp_loc self fn (check_and_discard args) ;
+                  pexp_attributes }
+        else   {e with pexp_attributes } (* BS_NATIVE branch*)
 
 end
 module Ast_exp_extension : sig 

lib/4.02.3/unstable/native_ppx.ml

@@ -19449,9 +19449,10 @@ let app_exp_mapper
           Ast_attributes.is_bs with
       | None -> default_expr_mapper self e
       | Some pexp_attributes ->
-
-        {e with pexp_attributes }
-
+        if !Clflags.bs_only then 
+          {e with pexp_desc = Ast_util.uncurry_fn_apply e.pexp_loc self fn (check_and_discard args) ;
+                  pexp_attributes }
+        else   {e with pexp_attributes } (* BS_NATIVE branch*)
 
 end
 module Ast_signature : sig 

lib/4.02.3/whole_compiler.ml

@@ -117692,12 +117692,10 @@ let app_exp_mapper
           Ast_attributes.is_bs with
       | None -> default_expr_mapper self e
       | Some pexp_attributes ->
-
-        {e with pexp_desc = Ast_util.uncurry_fn_apply e.pexp_loc self fn (check_and_discard args) ;
-                pexp_attributes }
-      
-  
-
+        if !Clflags.bs_only then 
+          {e with pexp_desc = Ast_util.uncurry_fn_apply e.pexp_loc self fn (check_and_discard args) ;
+                  pexp_attributes }
+        else   {e with pexp_attributes } (* BS_NATIVE branch*)
 
 end
 module Ast_external : sig