diff options
| author | herbelin | 2009-07-08 22:50:52 +0000 |
|---|---|---|
| committer | herbelin | 2009-07-08 22:50:52 +0000 |
| commit | d4927fcbf872c5f459c95cf0b95dd8b16e82cafb (patch) | |
| tree | 85ca12459c8c3ea3d3bea012b358ba52ef9c8806 | |
| parent | de218495d1eb9118a9fb7b4b19d8ba7fb7dc765a (diff) | |
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
| -rw-r--r-- | pretyping/evarutil.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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 |