improve the interface a bit more.

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@476 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2002-05-18 04:01:53 +00:00
parent 17728f58f5
commit 008cd709a1
4 changed files with 102 additions and 57 deletions
--- a/include/c_interface.h
+++ b/include/c_interface.h
@@ -628,6 +628,13 @@ static long (*YapINewSlots)(N) = YapNewSlots;
 #define YapNewSlots(N) (*YapINewSlots)(N)
 #endif

+/*  Term  *YapInitSlot()  */
+extern X_API long PROTO(YapInitSlot,(Term));
+#ifdef IndirectCalls
+static long (*YapIInitSlot)(T) = YapInitSlot;
+#define YapInitSlot(T) (*YapIInitSlot)(T)
+#endif
+
 /*  Term  YapGetFromSlots(t)  */
 extern X_API Term PROTO(YapGetFromSlot,(long));
 #ifdef IndirectCalls