diff options
author | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-09-23 10:03:42 +0000 |
---|---|---|
committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2006-09-23 10:03:42 +0000 |
commit | dfb12693947513e39461c46a67608ca8850798ec (patch) | |
tree | f0da5056c0d8fa890e9d324915cd9ea792f3882b | |
parent | 3a4e701b78c0422b019bbac3ea39198126de0677 (diff) |
Correction bug #1229 (toplevel "unresolved evar" fled through
Declare Implicit Tactic support)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9165 85f007b7-540e-0410-9357-904b9bb8a0f7
-rw-r--r-- | tactics/tacinterp.ml | 2 | ||||
-rw-r--r-- | test-suite/interactive/Evar.v | 6 |
2 files changed, 7 insertions, 1 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index e5719da99..a12c09ec8 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -1243,7 +1243,7 @@ let solve_remaining_evars env initial_sigma evars c = Pretype_errors.error_unsolvable_implicit loc env sigma src) | _ -> map_constr proc_rec c in - map_constr proc_rec c + proc_rec c let interp_gen kind ist sigma env (c,ce) = let (ltacvars,unbndltacvars) = constr_list ist env in diff --git a/test-suite/interactive/Evar.v b/test-suite/interactive/Evar.v new file mode 100644 index 000000000..1bc1f71d5 --- /dev/null +++ b/test-suite/interactive/Evar.v @@ -0,0 +1,6 @@ +(* Check that no toplevel "unresolved evar" flees through Declare + Implicit Tactic support (bug #1229) *) + +Goal True. +(* should raise an error, not an anomaly *) +set (x := _). |