make user the name for user streams
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@331 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
parent
601a7d2480
commit
61db1ea1d4
@ -2277,6 +2277,7 @@ p_check_if_stream (void)
|
|||||||
static Term
|
static Term
|
||||||
StreamName(int i)
|
StreamName(int i)
|
||||||
{
|
{
|
||||||
|
if (i < 3) return(MkAtomTerm(AtomUser));
|
||||||
#if USE_SOCKET
|
#if USE_SOCKET
|
||||||
if (Stream[i].status & Socket_Stream_f)
|
if (Stream[i].status & Socket_Stream_f)
|
||||||
return(MkAtomTerm(LookupAtom("socket")));
|
return(MkAtomTerm(LookupAtom("socket")));
|
||||||
|
Reference in New Issue
Block a user