From 67c294eba2b62b1cc0ffa8fe01687ea99bb1d64c Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sat, 24 Feb 2007 14:17:54 +0000
Subject: 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
---
 parsing/g_vernac.ml4 | 2 +-
 parsing/ppvernac.ml  | 3 +--
 2 files changed, 2 insertions(+), 3 deletions(-)

(limited to 'parsing')

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"
-- 
cgit v1.2.3