diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix arity finding

Browse Source
This commit is contained in:
Vítor Santos Costa 2010-07-28 17:14:18 +01:00
parent d45020e940
commit 41cb93c243
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/PLStream/pl-yap.h
View File

@ -79,7 +79,10 @@ valHandle(term_t tt)
{
return (word)YAP_GetFromSlot(tt);
}
#define arityFunctor(f) YAP_ArityOfFunctor((YAP_Functor)f)
YAP_Int YAP_PLArityOfSWIFunctor(functor_t f);
#define arityFunctor(f) YAP_PLArityOfSWIFunctor(f)
#define stringAtom(w) YAP_AtomName((YAP_Atom)(w))
#define isInteger(A) (YAP_IsIntTerm((A)) && YAP_IsBigNumTerm((A)))