diff options
| author |  Vincent Laporte <Vincent.Laporte@gmail.com> | 2018-05-31 09:14:47 +0000 |
|---|---|---|
| committer | Vincent Laporte <Vincent.Laporte@gmail.com> | 2018-07-03 15:54:22 +0000 |
| commit | fb9755ab4445fd86cdfc5b249b487629591d87a0 (patch) | |
| tree | ad511ecd062020fc16e76560d04ada56ba7f5138 /vernac/vernacinterp.ml | |
| parent | 9e75cacd86d491f81da7171c72569ac0cb6aeae0 (diff) | |
[vernac] mk_atts: an atts record with default values
Diffstat (limited to 'vernac/vernacinterp.ml')
| -rw-r--r-- | vernac/vernacinterp.ml | 3 |
1 files changed, 3 insertions, 0 deletions
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 |