diff options
| author | Hugo Herbelin | 2018-10-31 15:08:13 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2018-10-31 15:08:13 +0100 |
| commit | 77c6cfc74cc4668eb79cf84670b842fad32bc059 (patch) | |
| tree | 5bb522f682deb77a1a82937f04c6cc3b3f6af699 /plugins | |
| parent | 86971b6280a660e1db3e7567aa104f5f7eec9e8c (diff) | |
| parent | 0cad7b36e43bcafd999d8266573be30387fd32d4 (diff) | |
Merge PR #8759: Fix #8755: Uncaught exception Ltac_plugin.Taccoerce.CannotCoerceTo.
Diffstat (limited to 'plugins')
| -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 528d7de549..5828494454 100644 --- a/plugins/ltac/tacinterp.ml +++ b/plugins/ltac/tacinterp.ml @@ -686,7 +686,7 @@ let interp_may_eval f ist env sigma = function | ConstrContext ({loc;v=s},c) -> (try let (sigma,ic) = f ist env sigma c in - let ctxt = coerce_to_constr_context (Id.Map.find s ist.lfun) in + let ctxt = try_interp_ltac_var coerce_to_constr_context ist (Some (env, sigma)) (make ?loc s) in let ctxt = EConstr.Unsafe.to_constr ctxt in let ic = EConstr.Unsafe.to_constr ic in let c = subst_meta [Constr_matching.special_meta,ic] ctxt in |