diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2017-12-14 17:20:44 +0100 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2017-12-14 17:20:44 +0100 |
| commit | e7807a1eaa5600dfc1774c447d2f0306815bb481 (patch) | |
| tree | d3ef892be71383890d1a74d943314a59d333591b /plugins/ltac/tacintern.ml | |
| parent | 290abf59e6f13bb1468d8e3df050cf0bd9c48708 (diff) | |
| parent | a9849c070e954ed5c54dec5ad8eac98287939799 (diff) | |
Merge PR #6169: Clean up/deprecated options
Diffstat (limited to 'plugins/ltac/tacintern.ml')
| -rw-r--r-- | plugins/ltac/tacintern.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/plugins/ltac/tacintern.ml b/plugins/ltac/tacintern.ml index b16b0a7ba..ebffde441 100644 --- a/plugins/ltac/tacintern.ml +++ b/plugins/ltac/tacintern.ml @@ -428,9 +428,9 @@ let intern_hyp_location ist ((occs,id),hl) = (* Reads a pattern *) let intern_pattern ist ?(as_type=false) ltacvars = function - | Subterm (b,ido,pc) -> + | Subterm (ido,pc) -> let (metas,pc) = intern_constr_pattern ist ~as_type:false ~ltacvars pc in - ido, metas, Subterm (b,ido,pc) + ido, metas, Subterm (ido,pc) | Term pc -> let (metas,pc) = intern_constr_pattern ist ~as_type ~ltacvars pc in None, metas, Term pc |