From 41cb93c243dddccca4f40e471d4df5b602c3b615 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Wed, 28 Jul 2010 17:14:18 +0100
Subject: [PATCH] fix arity finding

---
 packages/PLStream/pl-yap.h | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/packages/PLStream/pl-yap.h b/packages/PLStream/pl-yap.h
index 7c4c60e6d..b8f7c43c4 100644
--- a/packages/PLStream/pl-yap.h
+++ b/packages/PLStream/pl-yap.h
@@ -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)))