From e43560a7ea5e7744da5cdd154cf42550a9985bbb Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Tue, 28 Nov 2006 00:46:28 +0000
Subject: [PATCH] fix bug in threaded implementation

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1726 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/absmi.c | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/C/absmi.c b/C/absmi.c
index eab69a0de..771f13699 100644
--- a/C/absmi.c
+++ b/C/absmi.c
@@ -10,8 +10,11 @@
 *									 *
 * File:		absmi.c							 *
 * comments:	Portable abstract machine interpreter                    *
-* Last rev:     $Date: 2006-11-27 17:42:02 $,$Author: vsc $						 *
+* Last rev:     $Date: 2006-11-28 00:46:28 $,$Author: vsc $						 *
 * $Log: not supported by cvs2svn $
+* Revision 1.213  2006/11/27 17:42:02  vsc
+* support for UNICODE, and other bug fixes.
+*
 * Revision 1.212  2006/11/21 16:21:30  vsc
 * fix I/O mess
 * fix spy/reconsult mess
@@ -1295,7 +1298,7 @@ Yap_absmi(int inp)
 	  } 
 	  LOCK(ap->StatisticsForPred.lock);
 	  ap->StatisticsForPred.NOfRetries++;
-	  UNLOCK(ap->ClPred->StatisticsForPred.lock);
+	  UNLOCK(ap->StatisticsForPred.lock);
 	  PREG = lcl->ClCode;
 	}
 	/* HEY, leave indexing block alone!! */