From ae95b79d0912a7b1a5370854cb6fb1aadb1db6b2 Mon Sep 17 00:00:00 2001
From: msozeau
Date: Thu, 30 Jun 2011 22:16:09 +0000
Subject: Fix compilation error

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14252 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 plugins/subtac/subtac_obligations.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'plugins')

diff --git a/plugins/subtac/subtac_obligations.ml b/plugins/subtac/subtac_obligations.ml
index aa018d4f28..b3ff7c9f00 100644
--- a/plugins/subtac/subtac_obligations.ml
+++ b/plugins/subtac/subtac_obligations.ml
@@ -545,7 +545,7 @@ and solve_obligation_by_tac prg obls i tac =
 	| Loc.Exc_located(_, Proof_type.LtacLocated (_, Refiner.FailError (_, s)))
 	| Loc.Exc_located(_, Refiner.FailError (_, s))
 	| Refiner.FailError (_, s) ->
-	    user_err_loc (unloc obl.obl_location, "solve_obligation", Lazy.force s)
+	    user_err_loc (fst obl.obl_location, "solve_obligation", Lazy.force s)
 	| Util.Anomaly _ as e -> raise e
 	| e -> false
 
-- 
cgit v1.2.3