diff options
| author | herbelin | 2007-02-24 14:17:54 +0000 |
|---|---|---|
| committer | herbelin | 2007-02-24 14:17:54 +0000 |
| commit | 67c294eba2b62b1cc0ffa8fe01687ea99bb1d64c (patch) | |
| tree | 2090870c43723647c4040b858d94d61ae9deba50 /parsing | |
| parent | 2e6ba9cc33060e6db5728ba53d08cc2f95771c6c (diff) | |
Suppression d'un résidu de la syntaxe v7 (Print Grammar avec univ)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9677 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/g_vernac.ml4 | 2 | ||||
| -rw-r--r-- | parsing/ppvernac.ml | 3 |
2 files changed, 2 insertions, 3 deletions
diff --git a/parsing/g_vernac.ml4 b/parsing/g_vernac.ml4 index 8174271d93..4c9056f09b 100644 --- a/parsing/g_vernac.ml4 +++ b/parsing/g_vernac.ml4 @@ -605,7 +605,7 @@ GEXTEND Gram | IDENT "Section"; s = global -> PrintSectionContext s | IDENT "Grammar"; ent = IDENT -> (* This should be in "syntax" section but is here for factorization*) - PrintGrammar ("", ent) + PrintGrammar ent | IDENT "LoadPath" -> PrintLoadPath | IDENT "Modules" -> PrintModules diff --git a/parsing/ppvernac.ml b/parsing/ppvernac.ml index 1b8123695d..7d4104db3e 100644 --- a/parsing/ppvernac.ml +++ b/parsing/ppvernac.ml @@ -788,8 +788,7 @@ let rec pr_vernac = function | PrintFullContext -> str"Print All" | PrintSectionContext s -> str"Print Section" ++ spc() ++ Libnames.pr_reference s - | PrintGrammar (uni,ent) -> - msgerrnl (str "warning: no direct translation of Print Grammar entry"); + | PrintGrammar ent -> str"Print Grammar" ++ spc() ++ str ent | PrintLoadPath -> str"Print LoadPath" | PrintModules -> str"Print Modules" |