From b677c030de7364ba282e0315cb9128428c1f55c3 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Mon, 14 Jan 2008 18:08:24 +0000
Subject: [PATCH] fix socket bug with undo char.

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

diff --git a/C/iopreds.c b/C/iopreds.c
index 9096afba4..27e5805cf 100644
--- a/C/iopreds.c
+++ b/C/iopreds.c
@@ -1562,6 +1562,10 @@ PlUnGetc (int sno)
     s->stream_getc = MemGetc;
     s->stream_putc = MemPutc;
     s->stream_wputc = put_wchar;
+  } else if (s->status & Socket_Stream_f) {
+    s->stream_getc = SocketGetc;
+    s->stream_putc = SocketPutc;
+    s->stream_wputc = put_wchar;
   } else if (s->status & Promptable_Stream_f) {
     s->stream_putc = ConsolePutc;
     s->stream_wputc = put_wchar;