fix notrace so that it will not call goal_expansion and friends.

This commit is contained in:
Vítor Santos de Costa 2008-10-08 13:43:33 +01:00
parent bb27cf9b66
commit 8b171db743
1 changed files with 4 additions and 4 deletions

View File

@ -1173,8 +1173,8 @@ throw(Ball) :-
%
% just leave this around to show the debugger.
%
'$notrace'(G) :-
'$execute'(G).
'$notrace'(M:G) :-
'$execute0'(G, M).
'$oncenotrace'(G) :-
'$execute'(G), !.
'$oncenotrace'(M:G) :-
'$execute0'(G, M), !.