change local to private which has a better syntax highlighting

Author: bobzhang

jscomp/syntax/bs_builtin_ppx.ml

@@ -380,16 +380,16 @@ let rec
     | Pstr_extension ( ({txt = ("bs.raw"| "raw") ; loc}, payload), _attrs)
       ->
       Ast_exp_handle_external.handle_raw_structure loc payload :: structure_mapper self rest
-    | Pstr_extension (({txt = "local"}, _),_)
+    | Pstr_extension (({txt = "private"}, _),_)
       -> 
       let rec aux acc (rest : Ast_structure.t) =
         match rest with 
-        | {pstr_desc = Pstr_extension (({txt = "local";loc}, payload), _) } :: next -> 
+        | {pstr_desc = Pstr_extension (({txt = "private";loc}, payload), _) } :: next -> 
           begin match payload with  
             | PStr work -> 
               aux (Ext_list.rev_map_append work acc (fun x -> self.structure_item self x)) next 
             | (PSig _ | PTyp _ | PPat _) -> 
-              Location.raise_errorf ~loc "local extension is not support"
+              Location.raise_errorf ~loc "private extension is not support"
           end        
         | _ -> expand_reverse acc (structure_mapper self rest)
       in  aux  [] stru

jscomp/test/internal_unused_test.ml

@@ -14,31 +14,31 @@ open! P1
 
 let f () = raise A
 
-let%local b = 3
+let%private b = 3
 
-let%local c = b + 2
+let%private c = b + 2
 
-[%%local
+[%%private
 let d = c 
 let f = d 
 let h = fun[@bs] a b -> a + b
 ]
 
 
-let%local h0 = 1
+let%private h0 = 1
 
-let%local h1 = h0 + 1
+let%private h1 = h0 + 1
 
-let%local h2 = h1 + 1 
+let%private h2 = h1 + 1 
 
-[%%local
+[%%private
 let h3 = 1 
 let h4 = h3 + 1 
 let h5 = h4 + 1
 ]
 
 module N = struct 
-  let %local a = 3 
+  let %private a = 3 
   let b = a + 2  
 end   
 

lib/4.06.1/unstable/js_compiler.ml

@@ -315565,16 +315565,16 @@ let rec
     | Pstr_extension ( ({txt = ("bs.raw"| "raw") ; loc}, payload), _attrs)
       ->
       Ast_exp_handle_external.handle_raw_structure loc payload :: structure_mapper self rest
-    | Pstr_extension (({txt = "local"}, _),_)
+    | Pstr_extension (({txt = "private"}, _),_)
       -> 
       let rec aux acc (rest : Ast_structure.t) =
         match rest with 
-        | {pstr_desc = Pstr_extension (({txt = "local";loc}, payload), _) } :: next -> 
+        | {pstr_desc = Pstr_extension (({txt = "private";loc}, payload), _) } :: next -> 
           begin match payload with  
             | PStr work -> 
               aux (Ext_list.rev_map_append work acc (fun x -> self.structure_item self x)) next 
             | (PSig _ | PTyp _ | PPat _) -> 
-              Location.raise_errorf ~loc "local extension is not support"
+              Location.raise_errorf ~loc "private extension is not support"
           end        
         | _ -> expand_reverse acc (structure_mapper self rest)
       in  aux  [] stru

lib/4.06.1/unstable/js_refmt_compiler.ml

@@ -315565,16 +315565,16 @@ let rec
     | Pstr_extension ( ({txt = ("bs.raw"| "raw") ; loc}, payload), _attrs)
       ->
       Ast_exp_handle_external.handle_raw_structure loc payload :: structure_mapper self rest
-    | Pstr_extension (({txt = "local"}, _),_)
+    | Pstr_extension (({txt = "private"}, _),_)
       -> 
       let rec aux acc (rest : Ast_structure.t) =
         match rest with 
-        | {pstr_desc = Pstr_extension (({txt = "local";loc}, payload), _) } :: next -> 
+        | {pstr_desc = Pstr_extension (({txt = "private";loc}, payload), _) } :: next -> 
           begin match payload with  
             | PStr work -> 
               aux (Ext_list.rev_map_append work acc (fun x -> self.structure_item self x)) next 
             | (PSig _ | PTyp _ | PPat _) -> 
-              Location.raise_errorf ~loc "local extension is not support"
+              Location.raise_errorf ~loc "private extension is not support"
           end        
         | _ -> expand_reverse acc (structure_mapper self rest)
       in  aux  [] stru

lib/4.06.1/whole_compiler.ml

@@ -413268,16 +413268,16 @@ let rec
     | Pstr_extension ( ({txt = ("bs.raw"| "raw") ; loc}, payload), _attrs)
       ->
       Ast_exp_handle_external.handle_raw_structure loc payload :: structure_mapper self rest
-    | Pstr_extension (({txt = "local"}, _),_)
+    | Pstr_extension (({txt = "private"}, _),_)
       -> 
       let rec aux acc (rest : Ast_structure.t) =
         match rest with 
-        | {pstr_desc = Pstr_extension (({txt = "local";loc}, payload), _) } :: next -> 
+        | {pstr_desc = Pstr_extension (({txt = "private";loc}, payload), _) } :: next -> 
           begin match payload with  
             | PStr work -> 
               aux (Ext_list.rev_map_append work acc (fun x -> self.structure_item self x)) next 
             | (PSig _ | PTyp _ | PPat _) -> 
-              Location.raise_errorf ~loc "local extension is not support"
+              Location.raise_errorf ~loc "private extension is not support"
           end        
         | _ -> expand_reverse acc (structure_mapper self rest)
       in  aux  [] stru