Merge pull request #4148 from BuckleScript/tweak

bump compiler changes

Author: bobzhang

jscomp/ext/bsc_warnings.ml

@@ -72,6 +72,6 @@
 
   - 102 Bs_polymorphic_comparison
 *)
-let defaults_w = "+a-4-9-40-41-42-50-102"
+let defaults_w = "+a-4-9-40-41-42-50-61-102"
 let defaults_warn_error = "-a+5+101";;
 (*TODO: add +10*)

lib/4.06.1/bsb.ml

@@ -6951,7 +6951,7 @@ module Bsc_warnings
 
   - 102 Bs_polymorphic_comparison
 *)
-let defaults_w = "+a-4-9-40-41-42-50-102"
+let defaults_w = "+a-4-9-40-41-42-50-61-102"
 let defaults_warn_error = "-a+5+101";;
 (*TODO: add +10*)
 

lib/4.06.1/bsdep.ml

@@ -138,7 +138,7 @@ module Bsc_warnings
 
   - 102 Bs_polymorphic_comparison
 *)
-let defaults_w = "+a-4-9-40-41-42-50-102"
+let defaults_w = "+a-4-9-40-41-42-50-61-102"
 let defaults_warn_error = "-a+5+101";;
 (*TODO: add +10*)
 

lib/4.06.1/unstable/bsb_native.ml

@@ -6951,7 +6951,7 @@ module Bsc_warnings
 
   - 102 Bs_polymorphic_comparison
 *)
-let defaults_w = "+a-4-9-40-41-42-50-102"
+let defaults_w = "+a-4-9-40-41-42-50-61-102"
 let defaults_warn_error = "-a+5+101";;
 (*TODO: add +10*)
 

lib/4.06.1/unstable/js_compiler.ml

@@ -25433,7 +25433,7 @@ module Bsc_warnings
 
   - 102 Bs_polymorphic_comparison
 *)
-let defaults_w = "+a-4-9-40-41-42-50-102"
+let defaults_w = "+a-4-9-40-41-42-50-61-102"
 let defaults_warn_error = "-a+5+101";;
 (*TODO: add +10*)
 
@@ -63559,8 +63559,14 @@ let rec lam ppf = function
   | Lsend (k, met, obj, largs, _) ->
       let args ppf largs =
         List.iter (fun l -> fprintf ppf "@ %a" lam l) largs in
-      let kind =
-        if k = Self then "self" else if k = Cached then "cache" else "" in
+         
+      let kind = 
+        match k with 
+        | Self -> "self"    
+        | Cached -> "cache"
+        | Public (Some x) -> x 
+        | Public None -> "" in
+        
       fprintf ppf "@[<2>(send%s@ %a@ %a%a)@]" kind lam obj lam met args largs
   | Levent(expr, ev) ->
       let kind =

lib/4.06.1/unstable/js_refmt_compiler.ml

@@ -304539,7 +304539,7 @@ module Bsc_warnings
 
   - 102 Bs_polymorphic_comparison
 *)
-let defaults_w = "+a-4-9-40-41-42-50-102"
+let defaults_w = "+a-4-9-40-41-42-50-61-102"
 let defaults_warn_error = "-a+5+101";;
 (*TODO: add +10*)
 
@@ -342665,8 +342665,14 @@ let rec lam ppf = function
   | Lsend (k, met, obj, largs, _) ->
       let args ppf largs =
         List.iter (fun l -> fprintf ppf "@ %a" lam l) largs in
-      let kind =
-        if k = Self then "self" else if k = Cached then "cache" else "" in
+         
+      let kind = 
+        match k with 
+        | Self -> "self"    
+        | Cached -> "cache"
+        | Public (Some x) -> x 
+        | Public None -> "" in
+        
       fprintf ppf "@[<2>(send%s@ %a@ %a%a)@]" kind lam obj lam met args largs
   | Levent(expr, ev) ->
       let kind =

lib/4.06.1/whole_compiler.ml

@@ -6374,7 +6374,7 @@ module Bsc_warnings
 
   - 102 Bs_polymorphic_comparison
 *)
-let defaults_w = "+a-4-9-40-41-42-50-102"
+let defaults_w = "+a-4-9-40-41-42-50-61-102"
 let defaults_warn_error = "-a+5+101";;
 (*TODO: add +10*)
 
@@ -47475,8 +47475,14 @@ let rec lam ppf = function
   | Lsend (k, met, obj, largs, _) ->
       let args ppf largs =
         List.iter (fun l -> fprintf ppf "@ %a" lam l) largs in
-      let kind =
-        if k = Self then "self" else if k = Cached then "cache" else "" in
+         
+      let kind = 
+        match k with 
+        | Self -> "self"    
+        | Cached -> "cache"
+        | Public (Some x) -> x 
+        | Public None -> "" in
+        
       fprintf ppf "@[<2>(send%s@ %a@ %a%a)@]" kind lam obj lam met args largs
   | Levent(expr, ev) ->
       let kind =