diff options
-rw-r--r-- | backend/PrintCminor.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/backend/PrintCminor.ml b/backend/PrintCminor.ml index 48062759..59178bde 100644 --- a/backend/PrintCminor.ml +++ b/backend/PrintCminor.ml @@ -43,7 +43,7 @@ let rec precedence = function (* Naming idents. *) -let ident_name = Camlcoq.extern_atom +let ident_name id = "'" ^ Camlcoq.extern_atom id ^ "'" (* Naming operators *) |