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

make top-level error handling a bit more compatible with SWI.

Browse Source
This commit is contained in:
Vitor Santos Costa
2009-03-10 18:07:50 +00:00
parent fc2e01f320
commit 503d97af90
6 changed files with 19 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
pl/messages.yap
View File

@@ -16,7 +16,7 @@
* *
*************************************************************************/
:- module('$message',
:- module('$messages',
[system_message/4,
prefix/6,
prefix/5,
@@ -79,7 +79,11 @@ stack_dump(error(_,_)) -->
'$hacks':display_stack_info(CPs, Envs, 20, CP).
stack_dump(_) --> [].
prolog_message(X,Y,Z) :-
system_message(X,Y,Z).
%message(loaded(Past,AbsoluteFileName,user,Msec,Bytes), Prefix, Suffix) :- !,
system_message(query(_QueryResult,_)) --> [].
system_message(format(Msg, Args)) -->
[Msg - Args].
system_message(ancestors([])) -->
@@ -485,3 +489,4 @@ prefix(banner, '', user_error) --> [].
prefix(informational, '~*|% '-[LC], user_error) -->
{ '$show_consult_level'(LC) }.