Permalink
Browse files

Test after exists CE bug

git-svn-id: https://clipsrules.svn.sourceforge.net/svnroot/clipsrules@93 b3187f35-aa44-0410-a219-a43ecd7132bf
  • Loading branch information...
1 parent d2eb811 commit ca3539c9feedd2facba182b8c3dd5e6db6d94c87 garyriley committed Jan 19, 2012
Showing with 10 additions and 0 deletions.
  1. +10 −0 core/drive.c
View
@@ -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. */

0 comments on commit ca3539c

Please sign in to comment.