Test after exists CE bug

git-svn-id: https://clipsrules.svn.sourceforge.net/svnroot/clipsrules@93 b3187f35-aa44-0410-a219-a43ecd7132bf
yrashk · Jan 19, 2012 · ca3539c · ca3539c
1 parent d2eb811
commit ca3539c
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/core/drive.c b/core/drive.c
@@ -416,6 +416,16 @@ globle void NetworkAssertLeft(
            { EngineData(theEnv)->leftToRightSucceeds++; }
 #endif
         }
+
+      // Bug Fix - Need to evaluate secondary network test for exists CE 0881
+
+      if ((join->secondaryNetworkTest != NULL) && exprResult && join->patternIsExists)
+        {
+         EngineData(theEnv)->GlobalRHSBinds = rhsBinds;
+         exprResult = EvaluateJoinExpression(theEnv,join->secondaryNetworkTest,join);
+         if (EvaluationData(theEnv)->EvaluationError)
+           { SetEvaluationError(theEnv,FALSE); }
+        }
 
       /*====================================================*/
       /* If the join expression evaluated to TRUE (i.e.     */