diff options
| author |  Maxime Dénès <mail@maximedenes.fr> | 2016-06-13 17:09:47 +0200 |
|---|---|---|
| committer | Maxime Dénès <mail@maximedenes.fr> | 2016-06-13 17:09:47 +0200 |
| commit | ab1f43defa72e93617c3e3b09abb1876ff5a1b46 (patch) | |
| tree | 0531751e83ad6b4ee30971b63c1a1d0c7a8429fe /stm | |
| parent | f6781defd922b80f8c48c4798c29644c99d5e611 (diff) | |
STM classification: VernacTimeout may contain an "internal command".
Diffstat (limited to 'stm')
| -rw-r--r-- | stm/stm.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stm/stm.ml b/stm/stm.ml index a81c2476d..3fe439cb2 100644 --- a/stm/stm.ml +++ b/stm/stm.ml @@ -99,7 +99,7 @@ let vernac_interp ?proof id ?route { verbose; loc; expr } = | VernacResetName _ | VernacResetInitial | VernacBack _ | VernacBackTo _ | VernacRestart | VernacUndo _ | VernacUndoTo _ | VernacBacktrack _ | VernacAbortAll | VernacAbort _ -> true - | VernacTime (_,e) | VernacRedirect (_,(_,e)) -> internal_command e + | VernacTime (_,e) | VernacTimeout (_,e) | VernacRedirect (_,(_,e)) -> internal_command e | _ -> false in if internal_command expr then begin prerr_endline (fun () -> "ignoring " ^ Pp.string_of_ppcmds(pr_vernac expr)) |