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/subtac/subtac_obligations.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'plugins/subtac')

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 ->
-- 
cgit v1.2.3