diff options
author | Vincent Laporte <Vincent.Laporte@gmail.com> | 2018-02-26 08:54:58 +0000 |
---|---|---|
committer | Vincent Laporte <Vincent.Laporte@gmail.com> | 2018-07-03 15:54:22 +0000 |
commit | 9e75cacd86d491f81da7171c72569ac0cb6aeae0 (patch) | |
tree | 27739fc3dd415876dd842364a92ad7c728c50c92 /stm | |
parent | 218c6cebf770a15fb3ca6eca1d587f42b8994234 (diff) |
[vernac] attribute_of_flags
Elaborate a [atts] record out of a list of flags.
Diffstat (limited to 'stm')
-rw-r--r-- | stm/vernac_classifier.ml | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/stm/vernac_classifier.ml b/stm/vernac_classifier.ml index e01dcbcb6..0606d27ed 100644 --- a/stm/vernac_classifier.ml +++ b/stm/vernac_classifier.ml @@ -199,11 +199,8 @@ let classify_vernac e = in let rec static_control_classifier ~poly = function | VernacExpr (f, e) -> - let poly = List.fold_left (fun poly f -> - match f with - | VernacPolymorphic b -> b - | (VernacProgram | VernacLocal _) -> poly - ) poly f in + let _, atts = Vernacentries.attributes_of_flags f Vernacinterp.{ loc = None ; locality = None ; polymorphic = poly ; program = false } in + let poly = atts.Vernacinterp.polymorphic in static_classifier ~poly e | VernacTimeout (_,e) -> static_control_classifier ~poly e | VernacTime (_,{v=e}) | VernacRedirect (_, {v=e}) -> |