include privitf to support new pl-file.c

2009-06-01 16:43:27 -05:00
parent 01f80f8116
commit 4a823a5065
3 changed files with 39 additions and 6 deletions
--- a/packages/PLStream/pl-privitf.h
+++ b/packages/PLStream/pl-privitf.h
@@ -59,14 +59,15 @@ avoid using term-references to address the list.
 #if __YAP_PROLOG__

 typedef struct list_ctx
-{ Word lp;
-  Word gstore;
+{ 
+  YAP_Term gstore;
+  YAP_Term start;
 } list_ctx;

 static inline void
 addSmallIntList(list_ctx *ctx, int value)
 {
- ctx->gstore = YAP_AddSmallIntToList(value);
+  ctx->gstore = YAP_ExtendList(YAP_MkIntTerm(value),ctx->gstore);
 }

 #else