From fb9755ab4445fd86cdfc5b249b487629591d87a0 Mon Sep 17 00:00:00 2001
From: Vincent Laporte <Vincent.Laporte@gmail.com>
Date: Thu, 31 May 2018 09:14:47 +0000
Subject: [vernac] mk_atts: an atts record with default values

---
 vernac/vernacinterp.ml | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'vernac/vernacinterp.ml')

diff --git a/vernac/vernacinterp.ml b/vernac/vernacinterp.ml
index d4f2a753f..36b8a7e62 100644
--- a/vernac/vernacinterp.ml
+++ b/vernac/vernacinterp.ml
@@ -21,6 +21,9 @@ type atts = {
   program : bool;
 }
 
+let mk_atts ?(loc=None) ?(locality=None) ?(polymorphic=false) ?(program=false) () : atts =
+  { loc ; locality ; polymorphic ; program }
+
 type 'a vernac_command = 'a -> atts:atts -> st:Vernacstate.t -> Vernacstate.t
 
 type plugin_args = Genarg.raw_generic_argument list
-- 
cgit v1.2.3