diff options
Diffstat (limited to 'proofs/proofview.ml')
| -rw-r--r-- | proofs/proofview.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/proofs/proofview.ml b/proofs/proofview.ml index 0f118a7c6d..a36d2675d6 100644 --- a/proofs/proofview.ml +++ b/proofs/proofview.ml @@ -230,6 +230,8 @@ let catchable_exception = function (* Unit of the tactic monad *) let tclUNIT a = (Proof.ret a:'a Proof.t) +let tclCHECKINTERRUPT a = Control.check_for_interrupt (); Proof.ret a + (* Bind operation of the tactic monad *) let tclBIND = Proof.bind |