From 572690acd860e8154b9fa39def4c7317ba64cb27 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Fri, 16 Apr 2004 21:01:45 +0000
Subject: [PATCH] fix current_op(X,Y,Z): it would not check for end of table.

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

diff --git a/C/stdpreds.c b/C/stdpreds.c
index 2cfc7a988..8d935acdc 100644
--- a/C/stdpreds.c
+++ b/C/stdpreds.c
@@ -1971,7 +1971,7 @@ cont_current_op(void)
     do {
       if ((a = at->NextOfAE) == NIL) {
 	i++;
-	while (TRUE) {
+	while (i < AtomHashTableSize) {
 	  READ_LOCK(HashChain[i].AERWLock);
 	  a = HashChain[i].Entry;
 	  READ_UNLOCK(HashChain[i].AERWLock);