diff options
| author | Maxime Dénès | 2018-07-09 22:16:10 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2018-07-09 22:16:10 +0200 |
| commit | a4909dd5f8d5df773a361a7cbacefc392b7cfebd (patch) | |
| tree | 7f16c4018bad54d9c1bf7c9e9d4aefacd83b2e40 /stm | |
| parent | c1d4dc68ace54f9ff9fd8f6466add38098ef0495 (diff) | |
| parent | 420b38cba7aedfcfeac5671a7db0c02c4bb14a0c (diff) | |
Merge PR #7920: Generic syntax for attributes
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 e01dcbcb6e..6be80d29a5 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.(mk_atts ~polymorphic:poly ()) in + let poly = atts.Vernacinterp.polymorphic in static_classifier ~poly e | VernacTimeout (_,e) -> static_control_classifier ~poly e | VernacTime (_,{v=e}) | VernacRedirect (_, {v=e}) -> |