diff options
| author | Vincent Laporte | 2019-04-05 12:47:56 +0000 |
|---|---|---|
| committer | Vincent Laporte | 2019-04-05 12:47:56 +0000 |
| commit | 3c06ce8dc3a95e5dfe3a4c0a9acdc7dd5dac75cb (patch) | |
| tree | 10472119bba36152034b9c6bcfd6d90e1f153167 /stm | |
| parent | be6f3a6234ee809dd3c290621d80c3280a41355e (diff) | |
| parent | be62d1580ed8e55fd98d429025c291e4be7bc185 (diff) | |
Merge PR #9685: [vernac] Small cleanup to remove assert false.
Ack-by: SkySkimmer
Ack-by: ejgallego
Reviewed-by: vbgl
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/stm.ml | 2 | ||||
| -rw-r--r-- | stm/vernac_classifier.ml | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/stm/stm.ml b/stm/stm.ml index cc0de0e9df..d54a5fdf43 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -2077,7 +2077,7 @@ end = struct (* {{{ *) let rec find ~time ~batch ~fail = function | VernacTime (batch,{CAst.v=e}) -> find ~time:true ~batch ~fail e | VernacRedirect (_,{CAst.v=e}) -> find ~time ~batch ~fail e - | VernacFail e -> find ~time ~batch ~fail:true e + | VernacFail {CAst.v=e} -> find ~time ~batch ~fail:true e | e -> e, time, batch, fail in find ~time:false ~batch:false ~fail:false e in let st = Vernacstate.freeze_interp_state ~marshallable:false in diff --git a/stm/vernac_classifier.ml b/stm/vernac_classifier.ml index feb8e2a67f..58fe923f9e 100644 --- a/stm/vernac_classifier.ml +++ b/stm/vernac_classifier.ml @@ -206,10 +206,10 @@ let classify_vernac e = | VernacExpr (f, e) -> let poly = Attributes.(parse_drop_extra polymorphic_nowarn f) in static_classifier ~poly e - | VernacTimeout (_,e) -> static_control_classifier e + | VernacTimeout (_,{v=e}) -> static_control_classifier e | VernacTime (_,{v=e}) | VernacRedirect (_, {v=e}) -> static_control_classifier e - | VernacFail e -> (* Fail Qed or Fail Lemma must not join/fork the DAG *) + | VernacFail {v=e} -> (* Fail Qed or Fail Lemma must not join/fork the DAG *) (match static_control_classifier e with | ( VtQuery | VtProofStep _ | VtSideff _ | VtMeta), _ as x -> x |