From ecf5fbd6bc5fc12166dd36c1b12ec714b86d0a63 Mon Sep 17 00:00:00 2001
From: narboux
Date: Wed, 12 Nov 2003 18:03:50 +0000
Subject: Idtac peut prendre un argument à afficher

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4863 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 translate/pptacticnew.ml | 3 ++-
 translate/ppvernacnew.ml | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

(limited to 'translate')

diff --git a/translate/pptacticnew.ml b/translate/pptacticnew.ml
index 7b9ba49d8b..a0ef088f76 100644
--- a/translate/pptacticnew.ml
+++ b/translate/pptacticnew.ml
@@ -678,7 +678,8 @@ let rec pr_tac env inherited tac =
       str "first" ++ spc () ++ pr_seq_body (pr_tac env ltop) tl, llet
   | TacSolve tl ->
       str "solve" ++ spc () ++ pr_seq_body (pr_tac env ltop) tl, llet
-  | TacId -> str "idtac", latom
+  | TacId "" -> str "idtac", latom
+  | TacId s -> str "idtac" ++ (qsnew s), latom
   | TacAtom (loc,t) ->
       pr_with_comments loc (hov 1 (pr_atom1 env t)), ltatom
   | TacArg(Tacexp e) -> pr_tac0 env e, latom
diff --git a/translate/ppvernacnew.ml b/translate/ppvernacnew.ml
index 2a8cc3c9b9..c7602c2b0f 100644
--- a/translate/ppvernacnew.ml
+++ b/translate/ppvernacnew.ml
@@ -1040,7 +1040,7 @@ let rec pr_vernac = function
   | VernacExtend (s,c) -> pr_extend s c
   | VernacV7only _ -> mt()
   | VernacV8only com -> pr_vernac com
-  | VernacProof Tacexpr.TacId -> str "Proof"
+  | VernacProof Tacexpr.TacId _ -> str "Proof"
   | VernacProof te -> str "Proof with" ++ spc() ++ pr_raw_tactic te 
 
 and pr_extend s cl =
-- 
cgit v1.2.3