diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-08-14 13:25:11 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-08-14 13:25:11 +0000 |
| commit | 9f7c47de0c95be43ac1a49c72eda3c5e5a2777a5 (patch) | |
| tree | 2cac00150e6da40b38909faf08cec3967b978a30 | |
| parent | 950cd6f7d123977ac0dffb27b0695b4eac52aa25 (diff) | |
Traduction mlnames
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4273 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | contrib/extraction/g_extraction.ml4 | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/contrib/extraction/g_extraction.ml4 b/contrib/extraction/g_extraction.ml4 index 80496af52..c8ee21c0e 100644 --- a/contrib/extraction/g_extraction.ml4 +++ b/contrib/extraction/g_extraction.ml4 @@ -15,7 +15,11 @@ open Pcoq open Genarg open Pp -VERNAC ARGUMENT EXTEND mlname +let pr_mlname _ _ s = spc () ++ str"\"" ++ str s ++ str"\"" + +ARGUMENT EXTEND mlname + TYPED AS string + PRINTED BY pr_mlname | [ preident(id) ] -> [ id ] | [ string(s) ] -> [ s ] END |