From 61db1ea1d4fbfe310fce438e8f5fd5da1c050822 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Sun, 27 Jan 2002 22:00:32 +0000
Subject: [PATCH] make user the name for user streams

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@331 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 C/iopreds.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/C/iopreds.c b/C/iopreds.c
index 2c41aa1d3..3ae4dfd98 100644
--- 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")));