From 0e2189a7a070dd356d5e549392d35d9d07b05058 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Thu, 16 Jun 2016 17:47:44 +0200
Subject: Factorizing the uses of Declareops.safe_flags.

This allows a smooth addition of various unsafe flags without wreaking
havoc in the ML codebase.
---
 kernel/term_typing.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'kernel/term_typing.ml')

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 =
-- 
cgit v1.2.3