From d4927fcbf872c5f459c95cf0b95dd8b16e82cafb Mon Sep 17 00:00:00 2001
From: herbelin
Date: Wed, 8 Jul 2009 22:50:52 +0000
Subject: Don't use recent ocaml tolerance for pattern "ProjectVar _" when
 ProjectVar is a constant constructor (anyway, use of _ for constant
 constructor was here by mistake).

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12232 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 pretyping/evarutil.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/pretyping/evarutil.ml b/pretyping/evarutil.ml
index 7e4c9358e5..bc23fcec26 100644
--- a/pretyping/evarutil.ml
+++ b/pretyping/evarutil.ml
@@ -600,7 +600,7 @@ let project_with_effects env sigma effects t subst =
   c
 
 let rec find_solution_type evarenv = function
-  | (id,ProjectVar _)::l -> pi3 (lookup_named id evarenv)
+  | (id,ProjectVar)::l -> pi3 (lookup_named id evarenv)
   | [id,ProjectEvar _] -> (* bugged *) pi3 (lookup_named id evarenv)
   | (id,ProjectEvar _)::l -> find_solution_type evarenv l
   | [] -> assert false
-- 
cgit v1.2.3