fix module init problem (thanks to Bernd Guttman)

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

C/init.c

@@ -544,7 +544,6 @@ Yap_InitCPred(char *Name, unsigned long int Arity, CPredicate code, int flags)
   p_code->opc = Yap_opcode(_Ystop);
   p_code->u.l.l = cl->ClCode;
   pe->OpcodeOfPred = pe->CodeOfPred->opc;
-  pe->ModuleOfPred = CurrentModule;
 }
 
 void 

C/modules.c

@@ -69,6 +69,7 @@ GetModuleEntry(Atom at)
   new = (ModEntry *) Yap_AllocAtomSpace(sizeof(*new));
   INIT_RWLOCK(new->ModRWLock);
   new->KindOfPE = ModProperty;
+  new->PredForME = NULL;
   new->NextME = CurrentModules;
   CurrentModules = new;
   new->AtomOfME = ae;