diff options
| author | letouzey | 2013-03-13 00:00:04 +0000 |
|---|---|---|
| committer | letouzey | 2013-03-13 00:00:04 +0000 |
| commit | 108e88cafee662932c99a83230f674f648866613 (patch) | |
| tree | 949ee9b405efe3c5d70a3efc2d51ff997a159b81 /proofs | |
| parent | 027618d5aa99613ffbe390371cda492690809cc7 (diff) | |
Restrict (try...with...) to avoid catching critical exn (part 5)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16281 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs')
| -rw-r--r-- | proofs/pfedit.mli | 4 | ||||
| -rw-r--r-- | proofs/proof_global.mli | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/proofs/pfedit.mli b/proofs/pfedit.mli index 1b2ae9ec76..9d22b60e01 100644 --- a/proofs/pfedit.mli +++ b/proofs/pfedit.mli @@ -99,8 +99,8 @@ val cook_proof : (Proof.proof -> unit) -> val set_xml_cook_proof : (goal_kind * Proof.proof -> unit) -> unit (** {6 ... } *) -(** [get_Proof.proof ()] returns the current focused pending proof or - raises [UserError "no focused proof"] *) +(** [get_pftreestate ()] returns the current focused pending proof or + @raise NoCurrentProof *) val get_pftreestate : unit -> Proof.proof diff --git a/proofs/proof_global.mli b/proofs/proof_global.mli index 33a0bf98af..c1ca6a694a 100644 --- a/proofs/proof_global.mli +++ b/proofs/proof_global.mli @@ -45,7 +45,7 @@ val set_proof_mode : string -> unit exception NoCurrentProof val give_me_the_proof : unit -> Proof.proof - +(** @raise NoCurrentProof when outside proof mode. *) (** [start_proof s str goals ~init_tac ~compute_guard hook] starts a proof of name [s] and |