numeric keys got broken

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1952 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2007-10-10 15:43:47 +00:00
parent 5df974b857
commit 225b5e84f6

View File

@ -2630,9 +2630,9 @@ new_lu_int_key(Int key)
return NULL;
}
}
fe = Yap_MkFunctor(Yap_FullLookupAtom("$integer"),3);
fe = (Functor)Yap_FullLookupAtom("$integer");
WRITE_LOCK(fe->FRWLock);
p0 = Yap_NewPredPropByFunctor(fe,IDB_MODULE);
p0 = Yap_NewPredPropByAtom(fe,IDB_MODULE);
p = RepPredProp(p0);
p->NextOfPE = INT_LU_KEYS[hash_key];
p->src.IndxId = key;