diff options
author | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-07-29 15:23:32 +0000 |
---|---|---|
committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-07-29 15:23:32 +0000 |
commit | 8301010603574301ec56728727093ad456cd12ad (patch) | |
tree | 5f1ff337bce5e2b3e1371d108b6dfa2199e46895 /kernel/csymtable.ml | |
parent | c743a5a6e5fb689c25202c635128ebc812c046df (diff) |
fixed bug #2105 (compilation of free de Bruijn) and missing lift of predicate in branch read-back
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13349 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/csymtable.ml')
-rw-r--r-- | kernel/csymtable.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/csymtable.ml b/kernel/csymtable.ml index 5e78e71de..77a322905 100644 --- a/kernel/csymtable.ml +++ b/kernel/csymtable.ml @@ -160,7 +160,7 @@ and slot_for_fv env fv = let (_, b, _) = lookup_rel i env.env_rel_context in let (v, d) = match b with - | None -> (val_of_rel i, Idset.empty) + | None -> (val_of_rel (nb_rel env - i), Idset.empty) | Some c -> let renv = env_of_rel i env in (val_of_constr renv c, Environ.global_vars_set (Environ.env_of_pre_env renv) c) in |