From c7ce8a036e07930793dc4904457188ca97064700 Mon Sep 17 00:00:00 2001
From: Gaëtan Gilbert
Date: Thu, 11 Oct 2018 18:10:06 +0200
Subject: Simplify use of polymorphism/program globals in attributes

---
 plugins/ltac/rewrite.ml | 2 --
 1 file changed, 2 deletions(-)

(limited to 'plugins')

diff --git a/plugins/ltac/rewrite.ml b/plugins/ltac/rewrite.ml
index 740e955049..7d917c58fe 100644
--- a/plugins/ltac/rewrite.ml
+++ b/plugins/ltac/rewrite.ml
@@ -48,8 +48,6 @@ type rewrite_attributes = { polymorphic : bool; program : bool; global : bool }
 let rewrite_attributes =
   let open Attributes.Notations in
   Attributes.(polymorphic ++ program ++ locality) >>= fun ((polymorphic, program), locality) ->
-  let polymorphic = Option.default (Flags.is_universe_polymorphism()) polymorphic in
-  let program = Option.default (Flags.is_program_mode ()) program in
   let global = not (Locality.make_section_locality locality) in
   Attributes.Notations.return { polymorphic; program; global }
 
-- 
cgit v1.2.3