diff options
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 *) |