diff options
| author | herbelin | 2006-01-10 22:45:28 +0000 |
|---|---|---|
| committer | herbelin | 2006-01-10 22:45:28 +0000 |
| commit | e2db04fb2a37e860289a3d9edf889bbf57b7160d (patch) | |
| tree | 9fdeb1365f14b085907b2d25a2012efcb0d9a20b /kernel | |
| parent | 37758d24a92f76eb77f51a654287f139aef6ad27 (diff) | |
Détection var inutile par ocaml 3.09
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@7830 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/environ.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/environ.ml b/kernel/environ.ml index 0555096e24..da41b60e91 100644 --- a/kernel/environ.ml +++ b/kernel/environ.ml @@ -356,7 +356,7 @@ let rec apply_to_hyp_and_dependent_on (ctxt,vals) id f g = let insert_after_hyp (ctxt,vals) id d check = let rec aux ctxt vals = match ctxt, vals with - | (idc,c,ct as d')::ctxt', v::vals' -> + | (idc,c,ct)::ctxt', v::vals' -> if idc = id then begin check ctxt; push_named_context_val d (ctxt,vals) |