diff options
| author | Maxime Dénès | 2017-04-14 14:07:22 +0200 |
|---|---|---|
| committer | Maxime Dénès | 2017-04-14 14:07:22 +0200 |
| commit | 1c0fcb97ac717c43a27f7e70702a548b07cfb041 (patch) | |
| tree | 50f0dad88d2a7ce679fae090c0d6867b0e887fa1 | |
| parent | 273f8338f14473d4031fc2d1e5b80b5ad963adeb (diff) | |
| parent | e73b124a9d504e1759d4a4a0d3899882f58d459a (diff) | |
Merge PR#556: Fix anomaly when doing [all:Check _.] during a proof.
| -rw-r--r-- | stm/vernac_classifier.ml | 4 | ||||
| -rw-r--r-- | test-suite/success/all-check.v | 3 |
2 files changed, 5 insertions, 2 deletions
diff --git a/stm/vernac_classifier.ml b/stm/vernac_classifier.ml index dc5be08a37..58a86a4aa5 100644 --- a/stm/vernac_classifier.ml +++ b/stm/vernac_classifier.ml @@ -219,8 +219,8 @@ let rec classify_vernac e = (* What are these? *) | VernacToplevelControl _ | VernacRestoreState _ - | VernacWriteState _ -> VtUnknown, VtNow - | VernacError _ -> assert false + | VernacWriteState _ + | VernacError _ -> VtUnknown, VtNow (* Plugins should classify their commands *) | VernacExtend (s,l) -> try List.assoc s !classifiers l () diff --git a/test-suite/success/all-check.v b/test-suite/success/all-check.v new file mode 100644 index 0000000000..391bc540e4 --- /dev/null +++ b/test-suite/success/all-check.v @@ -0,0 +1,3 @@ +Goal True. +Fail all:Check _. +Abort. |