diff options
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 |