use SWI user_*.

2011-02-13 01:03:08 +00:00
parent 0d0a95ae8a
commit 80f190bc8a
10 changed files with 21 additions and 197 deletions
--- a/packages/PLStream/pl-file.c
+++ b/packages/PLStream/pl-file.c
@@ -362,6 +362,11 @@ initIO()
    addHTable(streamAliases, (void *)*np, (void *)(intptr_t)i);

  GD->io_initialised = TRUE;
+#if __YAP_PROLOG__
+  Yap_LookupSWIStream(Suser_input);
+  Yap_LookupSWIStream(Suser_output);
+  Yap_LookupSWIStream(Suser_error);
+#endif
 }