diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-10-10 15:42:22 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-10-10 15:42:22 +0000 |
| commit | cc1b83979b9978fb2979ae8cda86daddaa62badb (patch) | |
| tree | a13cc08f374cff641aea74a027cf6b7a85ffeb06 /contrib/extraction/g_extraction.ml4 | |
| parent | db1658f0837918e27885c827cc29392068775fa6 (diff) | |
changement nouvelle syntaxe (pt fixes)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4559 85f007b7-540e-0410-9357-904b9bb8a0f7
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 |