slowly restore nth_clause

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@941 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2003-12-01 19:22:01 +00:00
parent 678ff0df82
commit fd1bc58cde
6 changed files with 259 additions and 22 deletions
--- a/pl/debug.yap
+++ b/pl/debug.yap
@@ -326,7 +326,7 @@ debugging :-
 '$loop_spy_event'('$fail_spy'(GoalNumber), _, _, _, _) :- !,
     throw('$fail_spy'(GoalNumber)).
 '$loop_spy_event'(abort, _, _, _, _) :- !,
-     '$throw'(abort).
+     throw(abort).
 '$loop_spy_event'(Event, GoalNumber, G, Module, _) :- !,
     '$trace'(exception,G,Module,GoalNumber),
     fail.