diff options
| author | herbelin | 2003-04-28 13:22:47 +0000 |
|---|---|---|
| committer | herbelin | 2003-04-28 13:22:47 +0000 |
| commit | ab65dd50ee42dd64a8df08ec61fef6da307123ca (patch) | |
| tree | ae8697b67fb742b3f4535d44619bda81bd1cf92f /parsing/pptactic.ml | |
| parent | 2e858fc6889d6891bbcc765d100312e214ff5f03 (diff) | |
Localisation erreurs TacAlias; Globalisation moins tolérante dans les
définitions de tactiques
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3968 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'parsing/pptactic.ml')
| -rw-r--r-- | parsing/pptactic.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/parsing/pptactic.ml b/parsing/pptactic.ml index 8560726fb2..9b11b58ac0 100644 --- a/parsing/pptactic.ml +++ b/parsing/pptactic.ml @@ -396,7 +396,7 @@ let rec pr_atom0 = function (* Main tactic printer *) and pr_atom1 = function | TacExtend (_,s,l) -> pr_extend pr_constr pr_tac s l - | TacAlias (s,l,_) -> pr_extend pr_constr pr_tac s (List.map snd l) + | TacAlias (_,s,l,_) -> pr_extend pr_constr pr_tac s (List.map snd l) (* Basic tactics *) | TacIntroPattern [] as t -> pr_atom0 t |