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 /stm/vernac_classifier.ml | |
| parent | 582fab072375924ce380148c8a92dbc2b4ec30cc (diff) | |
Fix anomaly when doing [all:Check _.] during a proof.
Diffstat (limited to 'stm/vernac_classifier.ml')
| -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 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 () |