implement sophisticated operations with matrices.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2022 b08c6af1-5177-4d33-ba66-4b1c6b8b522a

C/adtdefs.c

@@ -599,6 +599,10 @@ Yap_NewPredPropByFunctor(FunctorEntry *fe, Term cur_mod)
     WRITE_UNLOCK(fe->FRWLock);
     return NULL;
   }
+  if (cur_mod == TermProlog)
+    p->ModuleOfPred = 0L;
+  else
+    p->ModuleOfPred = cur_mod;
   if (fe->PropsOfFE) {
     UInt hsh = PRED_HASH(fe, cur_mod, PredHashTableSize);