From 1da3cc8b5c7c54e9f7efe18b777fc29ff6bb373d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@xato.(none)>
Date: Fri, 11 Feb 2011 19:00:32 +0000
Subject: [PATCH] compatibility with SWI generated error messages.

---
 pl/messages.yap | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/pl/messages.yap b/pl/messages.yap
index 9adc30ca4..acc7a5e47 100644
--- a/pl/messages.yap
+++ b/pl/messages.yap
@@ -69,6 +69,9 @@ generate_message(debug) --> !,
 	[ debug ].
 generate_message(trace) --> !,
 	[ trace ].
+generate_message(error(Error,context(Cause,Extra))) -->
+	system_message(error(Error,Cause)),
+	stack_dump(error(Error,context(Cause,Extra))).
 generate_message(M) -->
 	system_message(M),
 	stack_dump(M).