diff options
| author | narboux | 2003-11-12 18:03:50 +0000 |
|---|---|---|
| committer | narboux | 2003-11-12 18:03:50 +0000 |
| commit | ecf5fbd6bc5fc12166dd36c1b12ec714b86d0a63 (patch) | |
| tree | 2c9927b2d22c456dd07daddff5cc56cabdfb8b2d /translate | |
| parent | ea9f6b8f620b9f69de9d72ca603af042e4487339 (diff) | |
Idtac peut prendre un argument à afficher
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4863 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'translate')
| -rw-r--r-- | translate/pptacticnew.ml | 3 | ||||
| -rw-r--r-- | translate/ppvernacnew.ml | 2 |
2 files changed, 3 insertions, 2 deletions
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 = |