aboutsummaryrefslogtreecommitdiffhomepage
path: root/parsing/ppvernac.ml
diff options
context:
space:
mode:
authorGravatar herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>2007-02-24 14:17:54 +0000
committerGravatar herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7>2007-02-24 14:17:54 +0000
commit67c294eba2b62b1cc0ffa8fe01687ea99bb1d64c (patch)
tree2090870c43723647c4040b858d94d61ae9deba50 /parsing/ppvernac.ml
parent2e6ba9cc33060e6db5728ba53d08cc2f95771c6c (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/ppvernac.ml')
-rw-r--r--parsing/ppvernac.ml3
1 files changed, 1 insertions, 2 deletions
diff --git a/parsing/ppvernac.ml b/parsing/ppvernac.ml
index 1b8123695..7d4104db3 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"