another fix to FileFromStream
This commit is contained in:
parent
7628c875e8
commit
d02e14415b
@ -6107,9 +6107,9 @@ Yap_TermToString(Term t, char *s, unsigned int sz, int flags)
|
|||||||
FILE *
|
FILE *
|
||||||
Yap_FileDescriptorFromStream(Term t)
|
Yap_FileDescriptorFromStream(Term t)
|
||||||
{
|
{
|
||||||
int sno = CheckStream (t, Input_Stream_f, "get0/2");
|
int sno = CheckStream (t, Input_Stream_f|Output_Stream_f, "FileDescriptorFromStream");
|
||||||
if (sno < 0)
|
if (sno < 0)
|
||||||
return(FALSE);
|
return NULL;
|
||||||
if (Stream[sno].status & (Null_Stream_f|
|
if (Stream[sno].status & (Null_Stream_f|
|
||||||
InMemory_Stream_f|
|
InMemory_Stream_f|
|
||||||
Socket_Stream_f|
|
Socket_Stream_f|
|
||||||
|
Reference in New Issue
Block a user