From 007a1346f4d9d9545ac454407c500866697e5598 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Thu, 26 Mar 2009 08:54:49 +0000
Subject: [PATCH] fix unhandled exceptions.

---
 pl/errors.yap   | 2 +-
 pl/messages.yap | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/pl/errors.yap b/pl/errors.yap
index 525fb0724..23ed8a3b4 100644
--- a/pl/errors.yap
+++ b/pl/errors.yap
@@ -223,7 +223,7 @@
 	'$set_fpu_exceptions',
 	print_message(error,error(Msg, Where)).
 '$process_error'(Throw, _) :-
-	print_message(error,Throw).
+	print_message(error,error(unhandled_exception,Throw)).
 
 print_message(force(_Severity), Msg) :- !,
 	print(user_error,Msg).
diff --git a/pl/messages.yap b/pl/messages.yap
index 6c4976a6a..486d23930 100644
--- a/pl/messages.yap
+++ b/pl/messages.yap
@@ -270,6 +270,8 @@ system_message(error(type_error(TE,W), Where)) -->
 	[ 'TYPE ERROR- ~w: expected ~q, got ~w' - [Where,TE,W] ].
 system_message(error(unknown, Where)) -->
 	[ 'EXISTENCE ERROR- procedure ~w undefined' - [Where] ].
+system_message(error(unhandled_exception,Throw)) -->
+	[ 'UNHANDLED EXCEPTION - message ~w unknown' - [Throw] ].
 system_message(Messg) -->
 	[ '~q' - Messg ].