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.
---
 pretyping/inductiveops.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'pretyping/inductiveops.ml')

diff --git a/pretyping/inductiveops.ml b/pretyping/inductiveops.ml
index 0b488308a1..1d77204543 100644
--- a/pretyping/inductiveops.ml
+++ b/pretyping/inductiveops.ml
@@ -592,9 +592,9 @@ let type_of_projection_knowing_arg env sigma p c ty =
 let control_only_guard env c =
   let check_fix_cofix e c = match kind_of_term c with
     | CoFix (_,(_,_,_) as cofix) ->
-      Inductive.check_cofix ~flags:{check_guarded=true} e cofix
+      Inductive.check_cofix ~flags:Declareops.safe_flags e cofix
     | Fix (_,(_,_,_) as fix) ->
-      Inductive.check_fix ~flags:{check_guarded=true} e fix
+      Inductive.check_fix ~flags:Declareops.safe_flags e fix
     | _ -> ()
   in
   let rec iter env c =
-- 
cgit v1.2.3