From 1fe8842094aa442b4e1661c52972b597b79974f5 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Tue, 8 Oct 2002 01:09:28 +0000
Subject: [PATCH] Reset ErrorMessage before entering IndexPred (otherwise
 system will be confused with previous errors).

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

diff --git a/C/index.c b/C/index.c
index d237f626b..356051677 100644
--- a/C/index.c
+++ b/C/index.c
@@ -1331,6 +1331,7 @@ PredIsIndexable(PredEntry *ap)
     gc(ap->ArityOfPE, ENV, CP);
   }
  restart_index:
+  ErrorMessage = NULL;
   labelno = 1;
   RemovedCl = FALSE;
   FirstCl = (yamop *)(ap->FirstClause);
@@ -1352,7 +1353,7 @@ PredIsIndexable(PredEntry *ap)
   Entries = (EntryDef *) (Groups + NGroups);
   CodeStart = cpc = NIL;
   freep = (char *) (ArOfCl + NClauses);
-  if (ErrorMessage != NIL) {
+  if (ErrorMessage != NULL) {
     return (NIL);
   }
   if (CurrentPred->PredFlags & LogUpdatePredFlag) {