diff options
| author | herbelin | 2011-06-10 22:06:35 +0000 |
|---|---|---|
| committer | herbelin | 2011-06-10 22:06:35 +0000 |
| commit | c40f59114f3eb11708af6e45ec8cfe81ec2fa3a2 (patch) | |
| tree | 4358994912b33587d573f5db05056cf543feccc0 /plugins/subtac | |
| parent | 6858036c6d12d77df2da9643b04f56733428be13 (diff) | |
Call process_vernac_interp_error before calling Errors.print in
plugins so that errors are indeed processed. Not sure this is the best
way to do it. Maybe funind should use with_heavy_rollback for
delimitating its use of vernac commands.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14181 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'plugins/subtac')
| -rw-r--r-- | plugins/subtac/subtac_obligations.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/subtac/subtac_obligations.ml b/plugins/subtac/subtac_obligations.ml index 01bd3d998a..18752c9f9a 100644 --- a/plugins/subtac/subtac_obligations.ml +++ b/plugins/subtac/subtac_obligations.ml @@ -494,7 +494,7 @@ let rec solve_obligation prg num tac = let obls = Array.copy obls in let _ = obls.(num) <- obl in let res = try update_obls prg obls (pred rem) - with e -> pperror (Errors.print e) + with e -> pperror (Errors.print (Cerrors.process_vernac_interp_error e)) in match res with | Remain n when n > 0 -> |