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:
@@ -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'(_,[]).
|
||||
|
||||
Reference in New Issue
Block a user