remove unuesd variables

Author: bobzhang

jscomp/core/js_dump.ml

@@ -1086,8 +1086,8 @@ and statement_desc top cxt f (s : J.statement_desc) : cxt =
       | Raw_js_code {code = s; code_info =  Stmt (Js_stmt_comment)} -> 
         P.string f s;
         cxt
-      | Raw_js_code {code = s; code_info =  Exp (Js_literal {comment})} -> 
-        (match comment with 
+      | Raw_js_code {code_info =  Exp (Js_literal {comment})} -> 
+        (match comment with (* The %raw is just a comment *)
         | Some s ->
           P.string f s;
         | None -> ());

jscomp/core/js_pass_tailcall_inline.ml

@@ -42,7 +42,7 @@ module S = Js_stmt_make
 
 
 let substitue_variables (map : Ident.t Map_ident.t) = 
-    object (self)  
+    object
       inherit Js_map.map
       method! ident id =
          Map_ident.find_default map id id 

jscomp/outcome_printer/tweaked_reason_oprint.cppo.ml

@@ -320,7 +320,7 @@ and print_simple_out_type ppf =
 
   | Otyp_constr (
       Oide_dot (Oide_dot (
-          Oide_ident "Js_OO", "Callback" ), name),
+          Oide_ident "Js_OO", "Callback" ), _),
       [res]
     ) ->
     fprintf ppf "@[<0>(%a)@ [@bs.this]@]" (print_out_type_1 ~uncurried:false) res

jscomp/syntax/ast_config.ml

@@ -51,7 +51,7 @@ let rec iter_on_bs_config_stru (x :Parsetree.structure) =
       (Ast_payload.table_dispatch !structural_config_table)
   | {pstr_desc = Pstr_attribute _} :: rest -> 
     iter_on_bs_config_stru rest 
-  | non_attr :: _ -> ()    
+  | _ :: _ -> ()    
 
 let rec iter_on_bs_config_sigi (x :Parsetree.signature) =   
   match x with 
@@ -62,4 +62,4 @@ let rec iter_on_bs_config_sigi (x :Parsetree.signature) =
       (Ast_payload.table_dispatch !signature_config_table)
   | {psig_desc = Psig_attribute _} :: rest -> 
     iter_on_bs_config_sigi rest 
-  | non_attr :: _ -> ()      
+  | _ :: _ -> ()