scsh-conservatory
/
scsh-0.5
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

read_fdport_substring() didn't reset the port's peek-char to #F when 

consuming it. Reported by JSC 10/16/96, with fix.
This commit is contained in:
shivers 1996-10-16 16:37:51 +00:00
parent 6f951db725
commit 14f8b65a74
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
scsh/fdports1.c
View File

@ -395,6 +395,7 @@ int read_fdport_substring(scheme_value buf, int start, int end, scheme_value dat
if( len > 0 ) { if( len > 0 ) {
char *p = StrByte(buf,start); char *p = StrByte(buf,start);
*p++ = EXTRACT_CHAR(peek); *p++ = EXTRACT_CHAR(peek);
*PortData_Peek(data) = SCHFALSE;
return 1 + fread(p, 1, MIN(len-1, fbufcount(f)), f); return 1 + fread(p, 1, MIN(len-1, fbufcount(f)), f);
} }
else return 0; else return 0;