get rid of broken $clause/3: fixes listing of dynamic predicates.

This commit is contained in:
Vitor Santos Costa
2009-03-26 08:12:24 +00:00
parent 0d64daa393
commit f46ff06f38
4 changed files with 2 additions and 128 deletions

View File

@@ -474,7 +474,7 @@ debugging :-
F /\ 0x18402000 =\= 0, !, % dynamic procedure, logical semantics, user-C, or source
% use the interpreter
CP is '$last_choice_pt',
'$clause'(G, M, Cl),
'$clause'(G, M, Cl, _),
( '$do_spy'(Cl, M, CP, CalledFromDebugger) ; InRedo = true ).
'$spycall'(G, M, CalledFromDebugger, InRedo) :-
'$undefined'(G, M), !,