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:
parent
8334aa1f5e
commit
42ed54c331
@ -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),
|
||||
|
Reference in New Issue
Block a user