use Scurin by default in read/1.

2011-07-10 04:50:55 -07:00
parent dfd2db7c85
commit 2b213963dd
2 changed files with 9 additions and 1 deletions
--- a/packages/PLStream/pl-yap.c
+++ b/packages/PLStream/pl-yap.c
@@ -1121,6 +1121,12 @@ Yap_StreamPosition(IOSTREAM *st)
  return StreamPosition(st);
 }

+IOSTREAM *
+Yap_Scurin(void)
+{
+  return Scurin;
+}
+

 #if THREADS