diff options
| author | Enrico Tassi | 2015-09-15 15:20:47 +0200 |
|---|---|---|
| committer | Enrico Tassi | 2015-09-15 15:20:47 +0200 |
| commit | f5e0f609c8c2c77205fcfb296535a7d8856db584 (patch) | |
| tree | d98e7b23aadfda65f4ae79ecdfe70d0e973effda /stm | |
| parent | 2bc88f9a536c3db3c2d4a38a8a0da0500b895c7b (diff) | |
STM: Reset takes Ltac <ident> into account (Close #4316)
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/vernac_classifier.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/stm/vernac_classifier.ml b/stm/vernac_classifier.ml index a2b7795166..8aa2a59177 100644 --- a/stm/vernac_classifier.ml +++ b/stm/vernac_classifier.ml @@ -173,9 +173,13 @@ let rec classify_vernac e = | VernacDeclareReduction _ | VernacDeclareClass _ | VernacDeclareInstances _ | VernacRegister _ - | VernacDeclareTacticDefinition _ | VernacNameSectionHypSet _ | VernacComments _ -> VtSideff [], VtLater + | VernacDeclareTacticDefinition (_,l) -> + let open Libnames in + VtSideff (List.map (function + | (Ident (_,r),_,_) -> r + | (Qualid (_,q),_,_) -> snd(repr_qualid q)) l), VtLater (* Who knows *) | VernacLoad _ -> VtSideff [], VtNow (* (Local) Notations have to disappear *) |