diff options
| author | Gaëtan Gilbert | 2018-10-09 15:01:38 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2018-11-02 13:26:16 +0100 |
| commit | cc95e2f89f88a6e37f1d98ce55e479491c40145a (patch) | |
| tree | 4e7672be7dd196bf7ab10a67ff355df6b8c40ffc /stm | |
| parent | 8db938764d87cceee6669b339e0f995edd40fc3e (diff) | |
Make attributes more general to make defining #[universes(...)] easy
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 4958f17212..f3961327d8 100644 --- a/stm/vernac_classifier.ml +++ b/stm/vernac_classifier.ml @@ -194,7 +194,7 @@ let classify_vernac e = in let rec static_control_classifier ~poly = function | VernacExpr (f, e) -> - let poly' = Attributes.(parse_drop_extra polymorphic f) in + let poly' = Attributes.(parse_drop_extra polymorphic_nowarn f) in static_classifier ~poly:(Option.default poly poly') e | VernacTimeout (_,e) -> static_control_classifier ~poly e | VernacTime (_,{v=e}) | VernacRedirect (_, {v=e}) -> |