diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

use Scurin by default in read/1.

Browse Source
This commit is contained in:
ubu32 2011-07-10 04:50:55 -07:00
parent dfd2db7c85
commit 2b213963dd
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
C/iopreds.c
View File

@ -740,7 +740,9 @@ static Int
static Int static Int
p_read ( USES_REGS1 ) p_read ( USES_REGS1 )
{ /* '$read'(+Flag,?Term,?Module,?Vars,-Pos,-Err) */ { /* '$read'(+Flag,?Term,?Module,?Vars,-Pos,-Err) */
return do_read(NULL, 7 PASS_REGS); IOSTREAM *Yap_Scurin(void);
return do_read(Yap_Scurin(), 7 PASS_REGS);
} }
extern int Yap_getInputStream(Int, IOSTREAM **); extern int Yap_getInputStream(Int, IOSTREAM **);

6
packages/PLStream/pl-yap.c
View File

@ -1121,6 +1121,12 @@ Yap_StreamPosition(IOSTREAM *st)
return StreamPosition(st); return StreamPosition(st);
} }
IOSTREAM *
Yap_Scurin(void)
{
return Scurin;
}
#if THREADS #if THREADS