From dfb12693947513e39461c46a67608ca8850798ec Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sat, 23 Sep 2006 10:03:42 +0000
Subject: 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
---
 tactics/tacinterp.ml          | 2 +-
 test-suite/interactive/Evar.v | 6 ++++++
 2 files changed, 7 insertions(+), 1 deletion(-)
 create mode 100644 test-suite/interactive/Evar.v

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 := _).
-- 
cgit v1.2.3