diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix unhandled exceptions.

Browse Source
This commit is contained in:
Vitor Santos Costa 2009-03-26 08:54:49 +00:00
parent f46ff06f38
commit 007a1346f4
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pl/errors.yap
View File

@ -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).

2
pl/messages.yap
View File

@ -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 ].