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/tacinterp.ml | |
parent | 290abf59e6f13bb1468d8e3df050cf0bd9c48708 (diff) | |
parent | a9849c070e954ed5c54dec5ad8eac98287939799 (diff) |
Merge PR #6169: Clean up/deprecated options
Diffstat (limited to 'plugins/ltac/tacinterp.ml')
-rw-r--r-- | plugins/ltac/tacinterp.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/ltac/tacinterp.ml b/plugins/ltac/tacinterp.ml index 9e47db1c3..32a3b53fd 100644 --- a/plugins/ltac/tacinterp.ml +++ b/plugins/ltac/tacinterp.ml @@ -1040,7 +1040,7 @@ let eval_pattern lfun ist env sigma (bvars,(glob,_),pat as c) = (bvars,instantiate_pattern env sigma lfun pat) let read_pattern lfun ist env sigma = function - | Subterm (b,ido,c) -> Subterm (b,ido,eval_pattern lfun ist env sigma c) + | Subterm (ido,c) -> Subterm (ido,eval_pattern lfun ist env sigma c) | Term c -> Term (eval_pattern lfun ist env sigma c) (* Reads the hypotheses of a Match Context rule *) |