I/O fixes.

2011-04-22 15:29:41 +01:00
parent d793651f89
commit 697f7c650c
4 changed files with 64 additions and 27 deletions
--- a/packages/PLStream/pl-read.c
+++ b/packages/PLStream/pl-read.c
@@ -344,10 +344,12 @@ setCurrentSourceLocation(IOSTREAM *s ARG_LD)

 #if __YAP_PROLOG__
 void
-Yap_setCurrentSourceLocation(IOSTREAM *s)
+Yap_setCurrentSourceLocation(IOSTREAM **s)
 {
  GET_LD
-  setCurrentSourceLocation(s PASS_LD);
+  if (!*s)
+    *s = Suser_input;
+  setCurrentSourceLocation(*s PASS_LD);
 }
 #endif