fix small bug in recorded multi-threaded.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2069 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2008-01-28 18:21:26 +00:00 · 2008-01-28 18:21:26 +00:00 · c567a5aeb1
commit c567a5aeb1
parent f1613bf732
1 changed files with 3 additions and 0 deletions
--- a/C/dbase.c
+++ b/C/dbase.c
@ -3483,6 +3483,9 @@ p_recorded(void)
 	P = cl->ClCode;
      } else {
 	CP = P;
+#if defined(YAPOR) || defined(THREADS)
+	PP = cl->ClPred;
+#endif
 	P = cl->ClCode;
 	ENV = YENV;
 	YENV = ASP;