diff options
| author | herbelin | 2005-03-09 13:01:27 +0000 |
|---|---|---|
| committer | herbelin | 2005-03-09 13:01:27 +0000 |
| commit | c1f71328c3380561e14cf7d5551ff0b0ccaec4a8 (patch) | |
| tree | 5b100da561ad71e58fe7a9a665a11bcb05117811 | |
| parent | a173f0a15e3e93e0031319c7293a2ebb1f1b5e5a (diff) | |
bug #931 (continued): no recursion on the evars instantiation
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6816 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | pretyping/evarutil.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/pretyping/evarutil.ml b/pretyping/evarutil.ml index 5570763e14..1d5df55f3e 100644 --- a/pretyping/evarutil.ml +++ b/pretyping/evarutil.ml @@ -104,8 +104,9 @@ let mk_new_meta () = mkMeta(new_meta()) let collect_evars emap c = let rec collrec acc c = match kind_of_term c with - | Evar (k,_) when - Evd.in_dom emap k & not (Evd.is_defined emap k) -> k::acc + | Evar (k,_) -> + if Evd.in_dom emap k & not (Evd.is_defined emap k) then k::acc + else (* No recursion on the evar instantiation *) acc | _ -> fold_constr collrec acc c in list_uniquize (collrec [] c) |