include support for working_directory/2 as a system predicate.

packages/PLStream/pl-incl.h

@@ -862,7 +862,13 @@ typedef double			real;
 #define false(s, a)		(!true((s), (a)))
 #define set(s, a)		((s)->flags |= (a))
 #define clear(s, a)		((s)->flags &= ~(a))
+#ifdef  DEBUG
+/* should have messages here */
+#undef DEBUG
 #define DEBUG(LEVEL, COMMAND)
+#else
+#define DEBUG(LEVEL, COMMAND)
+#endif
 
 #define forwards static		/* forwards function declarations */
 

packages/PLStream/pl-yap.h

@@ -27,7 +27,7 @@
 typedef YAP_Term	        Module;
 typedef YAP_Term	       *Word;		/* Anonymous 4 byte object */
 typedef YAP_Atom		Atom;
-typedef YAP_Term		(*Func)();	/* foreign functions */
+typedef YAP_Term		(*Func)(term_t);	/* foreign functions */
 
 const char *Yap_GetCurrentPredName(void);
 YAP_Int     Yap_GetCurrentPredArity(void);