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

fix catch and throw: make sure we have an environment.

Browse Source 
use $notrace consistently: note that it only matters if ran from the
debugger, otherwise it is just a meta-call.
This commit is contained in:
Vítor Santos Costa
2008-09-24 00:13:02 +01:00
parent 6747cb21de
commit 139f591458
5 changed files with 19 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
pl/errors.yap
View File

@@ -240,16 +240,16 @@ print_message(Severity, Msg) :-
print_message(Severity, Term) :-
(
(
'$notrace'(user:generate_message_hook(Term, [], Lines)) ->
'$oncenotrace'(user:generate_message_hook(Term, [], Lines)) ->
true
;
'$notrace'(prolog:message(Term, Lines, [])) ->
'$oncenotrace'(prolog:message(Term, Lines, [])) ->
true
;
'$message':generate_message(Term, Lines, [])
)
-> ( nonvar(Term),
'$notrace'(user:message_hook(Term, Severity, Lines))
'$oncenotrace'(user:message_hook(Term, Severity, Lines))
-> !
; !, '$print_system_message'(Term, Severity, Lines)
)