From e73b124a9d504e1759d4a4a0d3899882f58d459a Mon Sep 17 00:00:00 2001
From: Gaetan Gilbert
Date: Wed, 12 Apr 2017 16:12:58 +0200
Subject: Fix anomaly when doing [all:Check _.] during a proof.

---
 stm/vernac_classifier.ml       | 4 ++--
 test-suite/success/all-check.v | 3 +++
 2 files changed, 5 insertions(+), 2 deletions(-)
 create mode 100644 test-suite/success/all-check.v

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.
-- 
cgit v1.2.3