From c40f59114f3eb11708af6e45ec8cfe81ec2fa3a2 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Fri, 10 Jun 2011 22:06:35 +0000
Subject: 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
---
 plugins/funind/functional_principles_proofs.ml | 1 +
 1 file changed, 1 insertion(+)

(limited to 'plugins/funind/functional_principles_proofs.ml')

diff --git a/plugins/funind/functional_principles_proofs.ml b/plugins/funind/functional_principles_proofs.ml
index 21ee325398..bba3f95fd5 100644
--- a/plugins/funind/functional_principles_proofs.ml
+++ b/plugins/funind/functional_principles_proofs.ml
@@ -34,6 +34,7 @@ let observennl strm =
 let do_observe_tac s tac g =
  try let v = tac g in (* msgnl (goal ++ fnl () ++ (str s)++(str " ")++(str "finished")); *) v
  with e ->
+   let e = Cerrors.process_vernac_interp_error e in
    let goal = begin try (Printer.pr_goal g) with _ -> assert false end in
    msgnl (str "observation "++ s++str " raised exception " ++
 	    Errors.print e ++ str " on goal " ++ goal );
-- 
cgit v1.2.3