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 /translate | |
| 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 'translate')
| -rw-r--r-- | translate/pptacticnew.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/translate/pptacticnew.ml b/translate/pptacticnew.ml index 44224227d1..acff5e1648 100644 --- a/translate/pptacticnew.ml +++ b/translate/pptacticnew.ml @@ -202,7 +202,7 @@ let rec pr_atom0 env = function and pr_atom1 env = function | TacExtend (_,s,l) -> pr_extend (pr_constr env) (pr_tac env) s l - | TacAlias (s,l,_) -> + | TacAlias (_,s,l,_) -> pr_extend (pr_constr env) (pr_tac env) s (List.map snd l) (* Basic tactics *) |