diff options
| author |  Enrico Tassi <Enrico.Tassi@inria.fr> | 2015-09-15 15:20:47 +0200 |
|---|---|---|
| committer | Enrico Tassi <Enrico.Tassi@inria.fr> | 2015-09-15 15:20:47 +0200 |
| commit | f5e0f609c8c2c77205fcfb296535a7d8856db584 (patch) | |
| tree | d98e7b23aadfda65f4ae79ecdfe70d0e973effda | |
| parent | 2bc88f9a536c3db3c2d4a38a8a0da0500b895c7b (diff) | |
STM: Reset takes Ltac <ident> into account (Close #4316)
| -rw-r--r-- | stm/vernac_classifier.ml | 6 | ||||
| -rw-r--r-- | test-suite/bugs/closed/4316.v | 3 |
2 files changed, 8 insertions, 1 deletions
diff --git a/stm/vernac_classifier.ml b/stm/vernac_classifier.ml index a2b779516..8aa2a5917 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 *) diff --git a/test-suite/bugs/closed/4316.v b/test-suite/bugs/closed/4316.v new file mode 100644 index 000000000..68dec1334 --- /dev/null +++ b/test-suite/bugs/closed/4316.v @@ -0,0 +1,3 @@ +Ltac tac := idtac. +Reset tac. +Ltac tac := idtac. |