diff options
| author |  Gaetan Gilbert <gaetan.gilbert@ens-lyon.fr> | 2017-04-12 16:12:58 +0200 |
|---|---|---|
| committer | Gaetan Gilbert <gaetan.gilbert@ens-lyon.fr> | 2017-04-14 14:03:18 +0200 |
| commit | e73b124a9d504e1759d4a4a0d3899882f58d459a (patch) | |
| tree | ac8a7937454e13435a8477045b700b9c4268f2b1 | |
| parent | 582fab072375924ce380148c8a92dbc2b4ec30cc (diff) | |
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 dc5be08a3..58a86a4aa 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 000000000..391bc540e --- /dev/null +++ b/test-suite/success/all-check.v @@ -0,0 +1,3 @@ +Goal True. +Fail all:Check _. +Abort. |