diff options
| author | aspiwack | 2011-05-13 17:57:49 +0000 |
|---|---|---|
| committer | aspiwack | 2011-05-13 17:57:49 +0000 |
| commit | 74158af19fc897734454f97e109d08be7ff6fc59 (patch) | |
| tree | bd5de7f565f9e2751ea4aada39c82aa6ef85a81f /proofs/pfedit.ml | |
| parent | edcf0d8b8bff399443ddf4cd436185c33bf59829 (diff) | |
The modules in proofs now use the Errors module to explain their exceptions to the toplevel
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14120 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/pfedit.ml')
| -rw-r--r-- | proofs/pfedit.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/proofs/pfedit.ml b/proofs/pfedit.ml index fff1a121d6..ad15ff9031 100644 --- a/proofs/pfedit.ml +++ b/proofs/pfedit.ml @@ -92,6 +92,10 @@ let set_end_tac tac = Proof_global.set_endline_tactic tac exception NoSuchGoal +let _ = Errors.register_handler begin function + | NoSuchGoal -> Util.error "No such goal." + | _ -> raise Errors.Unhandled +end let get_nth_V82_goal i = let p = Proof_global.give_me_the_proof () in let { it=goals ; sigma = sigma } = Proof.V82.subgoals p in |