From 5494c46f6219bea902fcc5ed983e16d1105fec51 Mon Sep 17 00:00:00 2001 From: Vincent Laporte Date: Mon, 25 Jun 2018 08:00:47 +0000 Subject: [vernac] Add a “deprecated” attribute MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- vernac/vernacinterp.ml | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'vernac/vernacinterp.ml') diff --git a/vernac/vernacinterp.ml b/vernac/vernacinterp.ml index 36b8a7e62..30c1ddbfd 100644 --- a/vernac/vernacinterp.ml +++ b/vernac/vernacinterp.ml @@ -19,10 +19,11 @@ type atts = { locality : bool option; polymorphic : bool; program : bool; + deprecated : (string * string) option; } -let mk_atts ?(loc=None) ?(locality=None) ?(polymorphic=false) ?(program=false) () : atts = - { loc ; locality ; polymorphic ; program } +let mk_atts ?(loc=None) ?(locality=None) ?(polymorphic=false) ?(program=false) ?(deprecated=None) () : atts = + { loc ; locality ; polymorphic ; program ; deprecated } type 'a vernac_command = 'a -> atts:atts -> st:Vernacstate.t -> Vernacstate.t -- cgit v1.2.3