Extraction: no more ascii blob in type variables (fix #3227)

 Since type variables are local to the definition, we simply rename
 them in case of unicode chars. We also get rid of any ' to avoid
 Ocaml illegal 'a' type var (clash with char litteral).

1 files changed, 6 insertions, 6 deletions

diff --git a/lib/unicode.ml b/lib/unicode.ml
index 0764531c1a..1765e93dcd 100644
--- a/lib/unicode.ml
+++ b/lib/unicode.ml
@@ -222,13 +222,13 @@ let lowercase_first_char s =
 
 (** For extraction, we need to encode unicode character into ascii ones *)
 
+let is_basic_ascii s =
+  let ok = ref true in
+  String.iter (fun c -> if Char.code c >= 128 then ok := false) s;
+  !ok
+
 let ascii_of_ident s =
-  let check_ascii s =
-    let ok = ref true in
-    String.iter (fun c -> if Char.code c >= 128 then ok := false) s;
-    !ok
-  in
-  if check_ascii s then s else
+  if is_basic_ascii s then s else
     let i = ref 0 and out = ref "" in
     begin try while true do
       let j, n = next_utf8 s !i in