diff options
| author | barras | 2006-05-09 21:15:07 +0000 |
|---|---|---|
| committer | barras | 2006-05-09 21:15:07 +0000 |
| commit | 3b03eb1015f14e04e505b11c27fb38b7db6ebe87 (patch) | |
| tree | 1e12d205f485cddf9be29284fdb07bcbfc2c9ff2 /kernel/inductive.ml | |
| parent | 61e0c695e763271361a2d68e11f02a4b4ea614b4 (diff) | |
subst. explicites avec vecteurs
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@8799 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/inductive.ml')
| -rw-r--r-- | kernel/inductive.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/inductive.ml b/kernel/inductive.ml index 0e7c819b6e..fbb06940da 100644 --- a/kernel/inductive.ml +++ b/kernel/inductive.ml @@ -724,7 +724,7 @@ let check_one_fix renv recpos def = | Const kn -> if evaluable_constant kn renv.env then try List.for_all (check_rec_call renv) l - with (FixGuardError _ ) as e -> + with (FixGuardError _ ) -> check_rec_call renv(applist(constant_value renv.env kn, l)) else List.for_all (check_rec_call renv) l |