diff options
| author | barras | 2010-07-29 15:23:32 +0000 |
|---|---|---|
| committer | barras | 2010-07-29 15:23:32 +0000 |
| commit | 8301010603574301ec56728727093ad456cd12ad (patch) | |
| tree | 5f1ff337bce5e2b3e1371d108b6dfa2199e46895 /kernel/cbytegen.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/cbytegen.ml')
| -rw-r--r-- | kernel/cbytegen.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/cbytegen.ml b/kernel/cbytegen.ml index 26e76d6947..cdbd827baf 100644 --- a/kernel/cbytegen.ml +++ b/kernel/cbytegen.ml @@ -197,7 +197,7 @@ let pos_rel i r sz = let i = i - r.nb_stack in if i <= r.nb_rec then try List.nth r.pos_rec (i-1) - with _ -> assert false + with (Failure _|Invalid_argument _) -> assert false else let i = i - r.nb_rec in let db = FVrel(i) in |