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

misc fixes

Browse Source 
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1068 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc
2004-05-17 21:42:12 +00:00
parent e7fbb54532
commit a6f1b27c09
9 changed files with 57 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
pl/debug.yap
View File

@@ -316,9 +316,11 @@ debugging :-
throw('$fail_spy'(GoalNumber)).
'$loop_spy_event'(abort, _, _, _, _) :- !,
throw(abort).
'$loop_spy_event'(Event, GoalNumber, G, Module, _) :- !,
'$trace'(exception(Event),G,Module,GoalNumber),
fail.
'$loop_spy_event'(Event, GoalNumber, G, Module, InControl) :- !,
'$system_catch'(
('$trace'(exception(Event),G,Module,GoalNumber),fail),
Module,NewEvent,
'$loop_spy_event'(NewEvent, GoalNumber, G, Module, InControl)).
'$loop_fail'(GoalNumber, G, Module, InControl) :-