diff options
Diffstat (limited to 'lib/unicode.ml')
| -rw-r--r-- | lib/unicode.ml | 12 |
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 |