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 /stm | |
| parent | 9e75cacd86d491f81da7171c72569ac0cb6aeae0 (diff) | |
[vernac] mk_atts: an atts record with default values
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/vernac_classifier.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stm/vernac_classifier.ml b/stm/vernac_classifier.ml index 0606d27ed..6be80d29a 100644 --- a/stm/vernac_classifier.ml +++ b/stm/vernac_classifier.ml @@ -199,7 +199,7 @@ let classify_vernac e = in let rec static_control_classifier ~poly = function | VernacExpr (f, e) -> - let _, atts = Vernacentries.attributes_of_flags f Vernacinterp.{ loc = None ; locality = None ; polymorphic = poly ; program = false } in + let _, atts = Vernacentries.attributes_of_flags f Vernacinterp.(mk_atts ~polymorphic:poly ()) in let poly = atts.Vernacinterp.polymorphic in static_classifier ~poly e | VernacTimeout (_,e) -> static_control_classifier ~poly e |