diff options
Diffstat (limited to 'contrib/extraction/g_extraction.ml4')
-rw-r--r-- | contrib/extraction/g_extraction.ml4 | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/contrib/extraction/g_extraction.ml4 b/contrib/extraction/g_extraction.ml4 index c8ee21c0e..72ad70105 100644 --- a/contrib/extraction/g_extraction.ml4 +++ b/contrib/extraction/g_extraction.ml4 @@ -15,7 +15,10 @@ open Pcoq open Genarg open Pp -let pr_mlname _ _ s = spc () ++ str"\"" ++ str s ++ str"\"" +let pr_mlname _ _ s = + spc () ++ + (if !Options.v7 && not (Options.do_translate()) then qs s + else Pptacticnew.qsnew s) ARGUMENT EXTEND mlname TYPED AS string |