remove redundant code

Author: bobzhang

jscomp/bsb/bsb_build_schemas.ml

@@ -23,7 +23,7 @@
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *)
 
 
-let files = "files"
+(* let files = "files" *)
 let version = "version"
 let name = "name"
 (* let ocaml_config = "ocaml-config" *)

jscomp/bsb/bsb_file.ml

@@ -38,7 +38,7 @@ let install_if_exists ~destdir input_name =
     if Sys.file_exists input_name then 
       let output_name = (Filename.concat destdir (Filename.basename input_name)) in
       match Unix.stat output_name , Unix.stat input_name with
-      | {st_mtime = output_stamp}, {st_mtime = input_stamp} when input_stamp <= output_stamp 
+      | {st_mtime = output_stamp;_}, {st_mtime = input_stamp;_} when input_stamp <= output_stamp 
         -> false
       | _ -> copy_with_permission input_name output_name; true 
       | exception _ -> copy_with_permission input_name output_name; true

jscomp/bsb/bsb_global_paths.mli

@@ -35,8 +35,6 @@ val vendor_bsdep : string
 
 val vendor_bsppx : string
 
-val vendor_bsppx : string
-
 val ocaml_dir : string
 
 val ocaml_lib_dir : string

jscomp/bsb_helper/bsb_helper_arg.ml

@@ -13,7 +13,7 @@ type spec =
   | Set_int of int ref         
 
 exception Bad of string
-exception Help of string
+(* exception Help of string *)
 
 type error =
   | Unknown of string
@@ -29,14 +29,14 @@ type t = (string * spec * string) list
 let rec assoc3 (x : string) (l : t) =
   match l with
   | [] -> None
-  | (y1, y2, y3) :: t when y1 = x -> Some y2
+  | (y1, y2, _y3) :: _t when y1 = x -> Some y2
   | _ :: t -> assoc3 x t
 ;;
 
 
 
 let usage_b (buf : Ext_buffer.t) speclist errmsg =
-  let print_spec buf (key, spec, doc) =
+  let print_spec buf (key, _spec, doc) =
     if  doc <> "" then begin 
       Ext_buffer.add_string buf "  ";
       Ext_buffer.add_string_char buf key ' ';  
@@ -100,7 +100,7 @@ let parse_exn  (speclist : t) anonfun errmsg =
         | None -> stop_raise (Unknown s)
       in
       begin try
-        let rec treat_action = function
+        let treat_action = function
         | Unit f -> f ();
         | Set r -> r := true;
         | String f when !current + 1 < l ->

jscomp/common/bs_loc.ml

@@ -35,7 +35,7 @@ let merge (l: t) (r : t) =
   if is_ghost l then r 
   else if is_ghost r then l 
   else match l,r with 
-  | {loc_start ; }, {loc_end; _} (* TODO: improve*)
+  | {loc_start ; _}, {loc_end; _} (* TODO: improve*)
     -> 
     {loc_start ;loc_end; loc_ghost = false}
 

jscomp/common/js_config.ml

@@ -61,7 +61,7 @@ let diagnose = ref false
 let get_diagnose () = !diagnose
 let set_diagnose b = diagnose := b
 
-let (//) = Filename.concat
+(* let (//) = Filename.concat *)
 
 (* let get_packages_info () = !packages_info *)
 

jscomp/ext/ext_buffer.ml

@@ -31,28 +31,28 @@ let create n =
  {buffer = s; position = 0; length = n; initial_buffer = s}
 
 let contents b = Bytes.sub_string b.buffer 0 b.position
-let to_bytes b = Bytes.sub b.buffer 0 b.position 
+(* let to_bytes b = Bytes.sub b.buffer 0 b.position  *)
 
-let sub b ofs len =
+(* let sub b ofs len =
   if ofs < 0 || len < 0 || ofs > b.position - len
   then invalid_arg "Ext_buffer.sub"
-  else Bytes.sub_string b.buffer ofs len
+  else Bytes.sub_string b.buffer ofs len *)
 
 
-let blit src srcoff dst dstoff len =
+(* let blit src srcoff dst dstoff len =
   if len < 0 || srcoff < 0 || srcoff > src.position - len
              || dstoff < 0 || dstoff > (Bytes.length dst) - len
   then invalid_arg "Ext_buffer.blit"
   else
-    Bytes.unsafe_blit src.buffer srcoff dst dstoff len
+    Bytes.unsafe_blit src.buffer srcoff dst dstoff len *)
 
 let length b = b.position
 let is_empty b = b.position = 0
 let clear b = b.position <- 0
 
-let reset b =
+(* let reset b =
   b.position <- 0; b.buffer <- b.initial_buffer;
-  b.length <- Bytes.length b.buffer
+  b.length <- Bytes.length b.buffer *)
 
 let resize b more =
   let len = b.length in

jscomp/ext/ext_color.ml

@@ -42,15 +42,15 @@ type style
   | Dim
 
 
-let ansi_of_color = function
+(* let ansi_of_color = function
   | Black -> "0"
   | Red -> "1"
   | Green -> "2"
   | Yellow -> "3"
   | Blue -> "4"
   | Magenta -> "5"
   | Cyan -> "6"
-  | White -> "7"
+  | White -> "7" *)
 
 let code_of_style = function
   | FG Black -> "30"

jscomp/ext/ext_format.ml

@@ -100,7 +100,7 @@ let to_out_channel = formatter_of_out_channel
 (* let set_needed_space_function _ _ = () *)
 let flush = pp_print_flush
 
-let list = pp_print_list
+(* let list = pp_print_list *)
 
 let rec pp_print_queue ?(pp_sep = pp_print_cut) pp_v ppf q =
   Queue.iter (fun q -> pp_v ppf q ;  pp_sep ppf ()) q 

jscomp/ext/ext_obj.ml

@@ -122,7 +122,7 @@ let bt () =
        | Some bt ->
          (match !acc with 
           | [] -> acc := [bt]
-          | hd::tl -> if hd <> bt then acc := bt :: !acc )
+          | hd::_ -> if hd <> bt then acc := bt :: !acc )
 
      done); 
     Ext_list.iter !acc (fun bt ->