Updating the code wrt. to some Ocaml compiler warnings.

3 files changed, 1 insertions, 11 deletions

diff --git a/lib/cString.ml b/lib/cString.ml
index 0c2ed2e7c0..61ed03083e 100644
--- a/lib/cString.ml
+++ b/lib/cString.ml
@@ -17,7 +17,6 @@ sig
   val explode : string -> string list
   val implode : string list -> string
   val strip : string -> string
-  val map : (char -> char) -> string -> string
   val drop_simple_quotes : string -> string
   val string_index_from : string -> int -> string -> int
   val string_contains : where:string -> what:string -> bool
@@ -78,12 +77,6 @@ let strip s =
   let a = lstrip_rec 0 and b = rstrip_rec (n-1) in
   String.sub s a (b-a+1)
 
-let map f s =
-  let l = String.length s in
-  let r = String.create l in
-  for i = 0 to (l - 1) do r.[i] <- f (s.[i]) done;
-  r
-
 let drop_simple_quotes s =
   let n = String.length s in
   if n > 2 && s.[0] = '\'' && s.[n-1] = '\'' then String.sub s 1 (n-2) else s
diff --git a/lib/cString.mli b/lib/cString.mli
index 5292b34d0a..65edfbbe68 100644
--- a/lib/cString.mli
+++ b/lib/cString.mli
@@ -32,9 +32,6 @@ sig
   val strip : string -> string
   (** Remove the surrounding blank characters from a string *)
 
-  val map : (char -> char) -> string -> string
-  (** Apply a function on a string character-wise. *)
-
   val drop_simple_quotes : string -> string
   (** Remove the eventual first surrounding simple quotes of a string. *)
 
diff --git a/lib/flags.ml b/lib/flags.ml
index df00eba7ba..40b7a29d26 100644
--- a/lib/flags.ml
+++ b/lib/flags.ml
@@ -122,7 +122,7 @@ let version_strictly_greater v = match !compat_version, v with
 | _ , V8_4 -> false
 | V8_4 , _ -> true
 | _ , V8_3 -> false
-| v8_3 , _ -> true
+| V8_3 , _ -> true
 | V8_2 , V8_2 -> false