From acba936e616743a8da4f08692110ee166f0855c1 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Thu, 8 Nov 2007 16:03:20 +0000
Subject: [PATCH] fix call(V:_).

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1987 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 pl/arith.yap | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/pl/arith.yap b/pl/arith.yap
index 7342b4ec1..b5f8ca335 100644
--- a/pl/arith.yap
+++ b/pl/arith.yap
@@ -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) :-  !,