cannot assume that meta-call argument is always a goal
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@256 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
e722826047
commit
890556c30d
@ -312,8 +312,6 @@ notify_constrained( [M|Ms], X) :-
|
|||||||
% Approximation because debug state might change between calls ...
|
% Approximation because debug state might change between calls ...
|
||||||
%
|
%
|
||||||
|
|
||||||
:- start_low_level_trace.
|
|
||||||
|
|
||||||
run_suspensions( Slots) :-
|
run_suspensions( Slots) :-
|
||||||
getval( debug, State),
|
getval( debug, State),
|
||||||
( State == off ->
|
( State == off ->
|
||||||
@ -323,8 +321,6 @@ run_suspensions( Slots) :-
|
|||||||
),
|
),
|
||||||
true.
|
true.
|
||||||
|
|
||||||
:- stop_low_level_trace.
|
|
||||||
|
|
||||||
run_suspensions_loop( []).
|
run_suspensions_loop( []).
|
||||||
run_suspensions_loop( [A|As]) :-
|
run_suspensions_loop( [A|As]) :-
|
||||||
arg( 1, A, Stack),
|
arg( 1, A, Stack),
|
||||||
|
@ -505,8 +505,8 @@ module(N) :-
|
|||||||
'$process_expanded_arg'(\+V, M, \+NV) :- !,
|
'$process_expanded_arg'(\+V, M, \+NV) :- !,
|
||||||
'$process_expanded_arg'(V, M, NV).
|
'$process_expanded_arg'(V, M, NV).
|
||||||
'$process_expanded_arg'(M:A, _, M:A) :- !.
|
'$process_expanded_arg'(M:A, _, M:A) :- !.
|
||||||
'$process_expanded_arg'(G, _, G) :-
|
%'$process_expanded_arg'(G, _, G) :-
|
||||||
'$system_predicate'(G), !.
|
% '$system_predicate'(G), !.
|
||||||
'$process_expanded_arg'(A, M, M:A).
|
'$process_expanded_arg'(A, M, M:A).
|
||||||
|
|
||||||
'$not_in_vars'(_,[]).
|
'$not_in_vars'(_,[]).
|
||||||
|
Reference in New Issue
Block a user