diff options
| author | Pierre Letouzey | 2014-05-05 18:54:09 +0200 |
|---|---|---|
| committer | Pierre Letouzey | 2015-01-11 09:49:32 +0100 |
| commit | e135bbb71b0e496c016aa89701bd4050cba49f5e (patch) | |
| tree | 520565c1ceb2719d2d07b771591be363b150f59f /plugins/extraction/ocaml.ml | |
| parent | 063fbe9077e6b75f327dd105774c3b3b77bda5c9 (diff) | |
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).
Diffstat (limited to 'plugins/extraction/ocaml.ml')
| -rw-r--r-- | plugins/extraction/ocaml.ml | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/plugins/extraction/ocaml.ml b/plugins/extraction/ocaml.ml index d762358970..ef81d03228 100644 --- a/plugins/extraction/ocaml.ml +++ b/plugins/extraction/ocaml.ml @@ -23,11 +23,7 @@ open Common (*s Some utility functions. *) -let pp_tvar id = - let s = Id.to_string id in - if String.length s < 2 || s.[1] != '\'' - then str ("'"^s) - else str ("' "^s) +let pp_tvar id = str ("'" ^ Id.to_string id) let pp_abst = function | [] -> mt () |