diff options
| author |  ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-01-28 13:54:13 +0000 |
|---|---|---|
| committer | ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-01-28 13:54:13 +0000 |
| commit | d73bf48c107e7f3e08f2fc5777bbbd42b4e1bc7c (patch) | |
| tree | ef18d6e605c3f98392a226a2d3df68a1d0b0481c /toplevel/obligations.ml | |
| parent | 8d77cb907a3595c90f15e1aa6402868ad4e43242 (diff) | |
Added backtrace information to anomalies
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16161 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'toplevel/obligations.ml')
| -rw-r--r-- | toplevel/obligations.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/toplevel/obligations.ml b/toplevel/obligations.ml index fd5156453..03bad4c1c 100644 --- a/toplevel/obligations.ml +++ b/toplevel/obligations.ml @@ -823,7 +823,7 @@ and solve_obligation_by_tac prg obls i tac = | Loc.Exc_located(_, Refiner.FailError (_, s)) | Refiner.FailError (_, s) -> user_err_loc (fst obl.obl_location, "solve_obligation", Lazy.force s) - | Errors.Anomaly _ as e -> raise e + | e when Errors.is_anomaly e -> raise e | e -> false and solve_prg_obligations prg ?oblset tac = |