diff options
| author | Arnaud Spiwack | 2015-06-26 11:24:16 +0200 |
|---|---|---|
| committer | Arnaud Spiwack | 2015-06-26 11:24:16 +0200 |
| commit | 576d7a815174106f337fca2f19ad7f26a7e87cc4 (patch) | |
| tree | 4679e39132853febe84670f5c039fc4608418496 /kernel/fast_typeops.ml | |
| parent | 42b7e36ddb68f53ada686900e5a98435d9ff7fde (diff) | |
Add a flag to deactivate guard checking in the kernel.
Diffstat (limited to 'kernel/fast_typeops.ml')
| -rw-r--r-- | kernel/fast_typeops.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/fast_typeops.ml b/kernel/fast_typeops.ml index 86fb1b64c6..358795666d 100644 --- a/kernel/fast_typeops.ml +++ b/kernel/fast_typeops.ml @@ -410,12 +410,12 @@ let rec execute env cstr = | Fix ((vn,i as vni),recdef) -> let (fix_ty,recdef') = execute_recdef env recdef i in let fix = (vni,recdef') in - check_fix env fix; fix_ty + check_fix env ~chk:true fix; fix_ty | CoFix (i,recdef) -> let (fix_ty,recdef') = execute_recdef env recdef i in let cofix = (i,recdef') in - check_cofix env cofix; fix_ty + check_cofix env ~chk:true cofix; fix_ty (* Partial proofs: unsupported by the kernel *) | Meta _ -> |