diogo
/
yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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:
vsc 2002-01-02 23:39:10 +00:00
parent e722826047
commit 890556c30d
2 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
CHR/chr.yap
View File

@ -312,8 +312,6 @@ notify_constrained( [M|Ms], X) :-
% Approximation because debug state might change between calls ...
%
:- start_low_level_trace.
run_suspensions( Slots) :-
getval( debug, State),
( State == off ->
@ -323,8 +321,6 @@ run_suspensions( Slots) :-
),
true.
:- stop_low_level_trace.
run_suspensions_loop( []).
run_suspensions_loop( [A|As]) :-
arg( 1, A, Stack),

4
pl/modules.yap
View File

@ -505,8 +505,8 @@ module(N) :-
'$process_expanded_arg'(\+V, M, \+NV) :- !,
'$process_expanded_arg'(V, M, NV).
'$process_expanded_arg'(M:A, _, M:A) :- !.
'$process_expanded_arg'(G, _, G) :-
'$system_predicate'(G), !.
%'$process_expanded_arg'(G, _, G) :-
% '$system_predicate'(G), !.
'$process_expanded_arg'(A, M, M:A).
'$not_in_vars'(_,[]).