diff options
| author | Pierre-Marie Pédrot | 2018-10-18 11:41:44 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-10-19 11:03:24 +0200 |
| commit | 0cad7b36e43bcafd999d8266573be30387fd32d4 (patch) | |
| tree | 682553aea46ccb1fb7dc49965f9761980dadd69c /plugins | |
| parent | c3823156da73a63967d9d472e21560af1585b271 (diff) | |
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 f90e889678..647d539127 100644 --- a/plugins/ltac/tacinterp.ml +++ b/plugins/ltac/tacinterp.ml @@ -687,7 +687,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 |