diff options
| author | Gaëtan Gilbert | 2018-09-19 14:14:03 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2018-11-02 13:26:16 +0100 |
| commit | c6cd7c39fc0da9c578cac57c9d06ddb28f0586fd (patch) | |
| tree | 7f9a76cc9119a094e6b551e5d982ca46a81e013b /stm | |
| parent | 9b0a4b002e324d523b01e17fba7ba631a651f6b0 (diff) | |
Move attributes out of vernacinterp to new attributes module
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/vernac_classifier.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stm/vernac_classifier.ml b/stm/vernac_classifier.ml index 85babd922b..b393093601 100644 --- a/stm/vernac_classifier.ml +++ b/stm/vernac_classifier.ml @@ -194,8 +194,8 @@ let classify_vernac e = in let rec static_control_classifier ~poly = function | VernacExpr (f, e) -> - let _, atts = Vernacentries.attributes_of_flags f Vernacinterp.(mk_atts ~polymorphic:poly ()) in - let poly = atts.Vernacinterp.polymorphic in + let _, atts = Vernacentries.attributes_of_flags f Attributes.(mk_atts ~polymorphic:poly ()) in + let poly = atts.Attributes.polymorphic in static_classifier ~poly e | VernacTimeout (_,e) -> static_control_classifier ~poly e | VernacTime (_,{v=e}) | VernacRedirect (_, {v=e}) -> |