make user the name for user streams

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@331 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
2002-01-27 22:00:32 +00:00 · 2002-01-27 22:00:32 +00:00 · 61db1ea1d4
parent 601a7d2480
commit 61db1ea1d4
1 changed files with 1 additions and 0 deletions
--- a/C/iopreds.c
+++ b/C/iopreds.c
@ -2277,6 +2277,7 @@ p_check_if_stream (void)
 static Term
 StreamName(int i)
 {
+  if (i < 3) return(MkAtomTerm(AtomUser));
 #if USE_SOCKET
  if (Stream[i].status & Socket_Stream_f)
    return(MkAtomTerm(LookupAtom("socket")));