fix op search code.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1461 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2005-11-16 02:45:48 +00:00
parent 4d34b03726
commit 7cd5cafe1c
2 changed files with 11 additions and 83 deletions
--- a/C/adtdefs.c
+++ b/C/adtdefs.c
@@ -313,9 +313,9 @@ Yap_GetOpProp(Atom a)
  READ_LOCK(ae->ARWLock);
  pp = RepProp(ae->PropsOfAE);
  while (!EndOfPAEntr(pp) &&
-	 pp->KindOfPE != OpProperty &&
-	 ((OpEntry *)pp)->OpModule &&
-	 ((OpEntry *)pp)->OpModule != CurrentModule)
+	 ( pp->KindOfPE != OpProperty ||
+	   (((OpEntry *)pp)->OpModule &&
+	    ((OpEntry *)pp)->OpModule != CurrentModule)))
    pp = RepProp(pp->NextOfPE);
  READ_UNLOCK(ae->ARWLock);
  if (EndOfPAEntr(pp))