diff options
| author | msozeau | 2011-06-30 22:16:09 +0000 |
|---|---|---|
| committer | msozeau | 2011-06-30 22:16:09 +0000 |
| commit | ae95b79d0912a7b1a5370854cb6fb1aadb1db6b2 (patch) | |
| tree | 2329f528a03f15cd4cc812a83ee7bddab807ac0d | |
| parent | 1de7cbeacb073d83ee58c9a1dd56b8c411ed4a0c (diff) | |
Fix compilation error
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14252 85f007b7-540e-0410-9357-904b9bb8a0f7
| -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 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 |