From 76160f72a8a19794ca1881b3c400e1f37d89dfa8 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Tue, 14 Oct 2003 21:17:32 +0000
Subject: [PATCH] fix syntax error allowed by newer GCCs

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

diff --git a/C/index.c b/C/index.c
index dbb42135c..81e28210c 100644
--- a/C/index.c
+++ b/C/index.c
@@ -5477,9 +5477,9 @@ static void
 remove_from_index(PredEntry *ap, path_stack_entry *sp, ClauseDef *cls, yamop *bg, yamop *lt) {
   /* last clause to experiment with */
   yamop *ipc = ap->cs.p_code.TrueCodeOfPred;
-  sp = init_block_stack(sp, ipc, ap);
   UInt current_arity = 0;
 
+  sp = init_block_stack(sp, ipc, ap);
   if (ap->cs.p_code.NOfClauses == 1) {
     if (ap->PredFlags & IndexedPredFlag) {
       Yap_RemoveIndexation(ap);