diff options
| author | Pierre-Marie Pédrot | 2016-06-16 17:47:44 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-06-16 17:57:20 +0200 |
| commit | 0e2189a7a070dd356d5e549392d35d9d07b05058 (patch) | |
| tree | 010ef6230603cb3beb91e9058fe0e1adb733c5d6 /kernel | |
| parent | b857552b6ffd5e72b5124aee9e35fc5c14607173 (diff) | |
Factorizing the uses of Declareops.safe_flags.
This allows a smooth addition of various unsafe flags without wreaking
havoc in the ML codebase.
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/term_typing.ml | 2 | ||||
| -rw-r--r-- | kernel/typeops.ml | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/kernel/term_typing.ml b/kernel/term_typing.ml index 8d74dc3902..f0c116d275 100644 --- a/kernel/term_typing.ml +++ b/kernel/term_typing.ml @@ -471,7 +471,7 @@ let translate_local_assum ~flags env t = t let translate_recipe env kn r = - build_constant_declaration ~flags:{check_guarded=true} kn env (Cooking.cook_constant env r) + build_constant_declaration ~flags:Declareops.safe_flags kn env (Cooking.cook_constant env r) let translate_local_def ~flags mb env id centry = let def,typ,proj,poly,univs,inline_code,ctx = diff --git a/kernel/typeops.ml b/kernel/typeops.ml index a94a049df1..9b9792ce87 100644 --- a/kernel/typeops.ml +++ b/kernel/typeops.ml @@ -500,13 +500,13 @@ 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 ~flags:{check_guarded=true} env fix; + check_fix ~flags:Declareops.safe_flags env fix; make_judge (mkFix fix) fix_ty | CoFix (i,recdef) -> let (fix_ty,recdef') = execute_recdef env recdef i in let cofix = (i,recdef') in - check_cofix ~flags:{check_guarded=true} env cofix; + check_cofix ~flags:Declareops.safe_flags env cofix; (make_judge (mkCoFix cofix) fix_ty) (* Partial proofs: unsupported by the kernel *) |