diff options
author | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-05-28 19:18:07 +0000 |
---|---|---|
committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-05-28 19:18:07 +0000 |
commit | 7edfbedba1426282b69b7bc8bc01259015c27e0a (patch) | |
tree | 514b62a01523b48360d5a6ce53b9031d789587fd /proofs/refiner.ml | |
parent | 10b68837fd896663cfb908228000732903471db6 (diff) |
Getting rid of LtacLocated exception transformer.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16535 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'proofs/refiner.ml')
-rw-r--r-- | proofs/refiner.ml | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/proofs/refiner.ml b/proofs/refiner.ml index 5a71b6816..dfc9c0a63 100644 --- a/proofs/refiner.ml +++ b/proofs/refiner.ml @@ -216,13 +216,10 @@ let tclSHOWHYPS (tac : tactic) (goal: Goal.goal Evd.sigma) let catch_failerror e = if catchable_exception e then check_for_interrupt () else match e with - | FailError (0,_) - | LtacLocated (_,_,FailError (0,_)) -> + | FailError (0,_) -> check_for_interrupt () | FailError (lvl,s) -> raise (Exninfo.copy e (FailError (lvl - 1, s))) - | LtacLocated (s'',loc,FailError (lvl,s')) -> - raise (LtacLocated (s'',loc,FailError (lvl - 1,s'))) | e -> raise e (** FIXME: do we need to add a [Errors.push] here? *) |