From 698f6d2c048b9499ebc718adc632296859466d46 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Thu, 3 Jan 2002 02:49:33 +0000
Subject: [PATCH] fix call_with_args(a, 1, 2, 3, 4, 5, 6, 7).

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@258 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/exec.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C/exec.c b/C/exec.c
index b1f8c7883..a14369c95 100644
--- a/C/exec.c
+++ b/C/exec.c
@@ -674,7 +674,7 @@ p_execute_7(void)
   ARG5 = ARG6;
   ARG6 = ARG7;
   ARG7 = ARG8;
-  pe = PredPropByFunc(MkFunctor(a, 6),mod);
+  pe = PredPropByFunc(MkFunctor(a, 7),mod);
   return (CallPredicate(RepPredProp(pe), B));
 }