diff options
| author | letouzey | 2011-05-17 17:02:59 +0000 |
|---|---|---|
| committer | letouzey | 2011-05-17 17:02:59 +0000 |
| commit | cc5d102f0d9e3eef2e7b810c47002f26335601db (patch) | |
| tree | 0a4b4628bf64712652b0d233fd3f0785e5434131 /tactics | |
| parent | 4e41135d9aa09260ccf1ca801ac055fd71838a7e (diff) | |
More work on error handling
Anomalies are now meant to be the exceptions that are *not*
catched and handled by the new Errors.handle_stack.
Three variants of [Errors.print] allow to customize how anomalies
are treated. In particular, [Errors.print_no_anomaly] is used
for the Fail command, instead of a classification function
Cerrors.is_user_error which wasn't customizable.
No more AnomalyOnError, its only occurrence is now a regular anomaly
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14133 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tacinterp.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index 3012cbae2f..1450d50322 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -2982,7 +2982,9 @@ let globTacticIn t = TacArg (TacDynamic (dummy_loc,tactic_in t)) let tacticIn t = globTacticIn (fun ist -> try glob_tactic (t ist) - with e -> raise (AnomalyOnError ("Incorrect tactic expression", e))) + with e -> anomalylabstrm "tacticIn" + (str "Incorrect tactic expression. Received exception is:" ++ + Errors.print e)) let tacticOut = function | TacArg (TacDynamic (_,d)) -> |