diff options
| -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 e5719da990..a12c09ec8c 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 0000000000..1bc1f71d5d --- /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 := _). |