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:
parent
5df974b857
commit
225b5e84f6
@ -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;
|
||||
|
Reference in New Issue
Block a user