fix call(V:_).
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1987 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
7b6c96e3d7
commit
acba936e61
@ -84,8 +84,8 @@ do_not_compile_expressions :- set_value('$c_arith',[]).
|
||||
'$do_and'(R0, Comp, R).
|
||||
'$do_c_built_in'(P, _, P).
|
||||
|
||||
'$do_c_built_metacall'(G1, Mod, call(Mod:G1)) :-
|
||||
var(G1), var(Mod), !.
|
||||
'$do_c_built_metacall'(G1, Mod, '$execute_wo_mod'(G1,Mod)) :-
|
||||
var(Mod), !.
|
||||
'$do_c_built_metacall'(G1, Mod, '$execute_in_mod'(G1,Mod)) :-
|
||||
var(G1), atom(Mod), !.
|
||||
'$do_c_built_metacall'(Mod:G1, _, OUT) :- !,
|
||||
|
Reference in New Issue
Block a user