From d73bf48c107e7f3e08f2fc5777bbbd42b4e1bc7c Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Mon, 28 Jan 2013 13:54:13 +0000
Subject: Added backtrace information to anomalies

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16161 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 proofs/monads.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'proofs')

diff --git a/proofs/monads.ml b/proofs/monads.ml
index 1337931b11..78a79909ed 100644
--- a/proofs/monads.ml
+++ b/proofs/monads.ml
@@ -166,7 +166,9 @@ end = struct
     (* spiwack: I cannot be sure right now, but [anomaly] shouldn't be
        reachable. If it is reachable there may be some redesign to be
        done around success continuations. *)
-    let anomaly = Errors.Anomaly ("Monads.Logic(T).split", Pp.str"[fk] should ignore this error") in
+    let anomaly = Errors.make_anomaly ~label:"Monads.Logic(T).split"
+      (Pp.str "[fk] should ignore this error")
+    in
     let fk e = T.return (Util.Inr e) in
     let sk a fk = T.return (Util.Inl (a,bind (lift (fk anomaly)) reflect)) in
     lift (x.go sk fk)
-- 
cgit v1.2.3