From 14f8b65a742bb6f7d3811317d210863cfc983fd8 Mon Sep 17 00:00:00 2001
From: shivers <shivers>
Date: Wed, 16 Oct 1996 16:37:51 +0000
Subject: [PATCH] read_fdport_substring() didn't reset the port's peek-char to
 #F when     consuming it. Reported by JSC 10/16/96, with fix.

---
 scsh/fdports1.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/scsh/fdports1.c b/scsh/fdports1.c
index 1230fda..0516115 100644
--- a/scsh/fdports1.c
+++ b/scsh/fdports1.c
@@ -395,6 +395,7 @@ int read_fdport_substring(scheme_value buf, int start, int end, scheme_value dat
 	if( len > 0 ) {
 	    char *p = StrByte(buf,start);
 	    *p++ = EXTRACT_CHAR(peek);
+            *PortData_Peek(data) = SCHFALSE;
 	    return 1 + fread(p, 1, MIN(len-1, fbufcount(f)), f);
 	    }
 	else return 0;