diff options
| author |  letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-09-18 15:06:42 +0000 |
|---|---|---|
| committer | letouzey <letouzey@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2012-09-18 15:06:42 +0000 |
| commit | bf08866eabad4408de975bae92f3b3c1f718322c (patch) | |
| tree | faab2a63879ce58c26ed5439a21af47a06226051 /plugins/extraction/common.ml | |
| parent | 4422e16f529359bb96c7eee214b2b6648958ef48 (diff) | |
More cleanup of Util: utf8 aspects moved to a new file unicode.ml
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@15818 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/extraction/common.ml')
| -rw-r--r-- | plugins/extraction/common.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/extraction/common.ml b/plugins/extraction/common.ml index 8cceb2a11..04cc167a8 100644 --- a/plugins/extraction/common.ml +++ b/plugins/extraction/common.ml @@ -22,7 +22,7 @@ let string_of_id id = for i = 0 to String.length s - 2 do if s.[i] = '_' && s.[i+1] = '_' then warning_id s done; - ascii_of_ident s + Unicode.ascii_of_ident s let is_mp_bound = function MPbound _ -> true | _ -> false |