more fixes

2010-06-23 11:44:44 +01:00
parent d22cb9b6ab
commit 15546096fe
6 changed files with 26 additions and 5 deletions
--- a/packages/PLStream/pl-file.c
+++ b/packages/PLStream/pl-file.c
@@ -4307,9 +4307,15 @@ BeginPredDefs(file)
 EndPredDefs

 #if __YAP_PROLOG__
+static pl_Sgetc(IOSTREAM *s)
+{
+  return Sgetc(s);
+}
+
 static void
 init_yap_extras()
 {
+  PL_YAP_InitSWIIO(FUNCTOR_dstream1, pl_Sgetc, Sputc, Sclose);
  initCharTypes();
  initFiles();
  initGlob();