diff options
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/names.ml | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/kernel/names.ml b/kernel/names.ml index ddc592c094..09971cc560 100644 --- a/kernel/names.ml +++ b/kernel/names.ml @@ -17,9 +17,16 @@ type identifier = string let id_ord = Pervasives.compare -let string_of_id id = String.copy id let id_of_string s = String.copy s +let map_ident id = + if Options.do_translate() then + match id with + "fix" -> "Fix" + | _ -> id + else id +let string_of_id id = String.copy (map_ident id) + (* Hash-consing of identifier *) module Hident = Hashcons.Make( struct |