diff options
| author | msozeau | 2008-01-18 19:41:43 +0000 |
|---|---|---|
| committer | msozeau | 2008-01-18 19:41:43 +0000 |
| commit | c2e3d63ca60b27abb5398ecbc8ebcaf8fb925206 (patch) | |
| tree | f0a1603b98484520e841283140817bc783d86a37 /tactics | |
| parent | f57b2e6cf26316ec7df340ab95399039dae5143e (diff) | |
Fix bug #1778, better typeclass error messages. Move Obligations Tactic to a wrapper around Ltac program_simpl ::= .
!!!! This may introduce incompatibilities because now modifications of program_simpl are properly handled and work across modules.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@10454 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tacinterp.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 0a600bc64a..236b6f30f0 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -1331,13 +1331,13 @@ let solve_remaining_evars env initial_sigma evd c = | Evar (ev,args as k) when not (Evd.mem initial_sigma ev) -> let (loc,src) = evar_source ev !evdref in let sigma = evars_of !evdref in + let evi = Evd.find sigma ev in (try - let evi = Evd.find sigma ev in let c = solvable_by_tactic env evi k src in evdref := Evd.evar_define ev c !evdref; c with Exit -> - Pretype_errors.error_unsolvable_implicit loc env sigma src) + Pretype_errors.error_unsolvable_implicit loc env sigma evi src) | _ -> map_constr proc_rec c in proc_rec c |