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/funind/indfun.ml | |
| 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/funind/indfun.ml')
| -rw-r--r-- | plugins/funind/indfun.ml | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/plugins/funind/indfun.ml b/plugins/funind/indfun.ml index d98960a489..85c362b769 100644 --- a/plugins/funind/indfun.ml +++ b/plugins/funind/indfun.ml @@ -252,12 +252,14 @@ let derive_inversion fix_names = fix_names ) with e -> + let e' = Cerrors.process_vernac_interp_error e in msg_warning - (str "Cannot built inversion information" ++ - if do_observe () then Errors.print e else mt ()) + (str "Cannot build inversion information" ++ + if do_observe () then (fnl() ++ Errors.print e') else mt ()) with _ -> () let warning_error names e = + let e = Cerrors.process_vernac_interp_error e in let e_explain e = match e with | ToShow e -> spc () ++ Errors.print e @@ -277,6 +279,7 @@ let warning_error names e = | _ -> raise e let error_error names e = + let e = Cerrors.process_vernac_interp_error e in let e_explain e = match e with | ToShow e -> spc () ++ Errors.print e |