fix debugging of log update predicates.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@785 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2003-02-19 16:54:34 +00:00
parent 8334aa1f5e
commit 42ed54c331

View File

@ -551,7 +551,7 @@ debugging :-
(Index = [] ->
/* We have a single clause */
Cl = 1,
'$clause'(G, M, Clause)
'$clause'(G, M, Clause,_)
;
Cl1 is Cl-1,
'$fetch_reference_from_index'(Index, Cl1, Ref),
@ -615,7 +615,7 @@ debugging :-
(Index = [] ->
/* We have a single clause */
Cl = 1,
'$clause'(G, M, Clause)
'$clause'(G, M, Clause,_)
;
Cl1 is Cl-1,
'$fetch_reference_from_index'(Index, Cl1, Ref),