suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

unbreak line-based flushing

Browse Source 
Repairs a problem introduced by 8e7792d85a.
This commit is contained in:
Matthew Flatt 2016-05-09 12:47:46 -06:00
parent 8e7792d85a
commit d92be80f77
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/racket/src/port.c
View File

@ -8318,7 +8318,7 @@ fd_write_string(Scheme_Output_Port *port,
fop = (Scheme_FD *)port->port_data; fop = (Scheme_FD *)port->port_data;
if (!flush && !fop->flushing && (fop->flush != MZ_FLUSH_ALWAYS)) { if (!flush && !fop->flushing && (fop->flush == MZ_FLUSH_NEVER)) {
l = MZPORT_FD_BUFFSIZE - fop->bufcount; l = MZPORT_FD_BUFFSIZE - fop->bufcount;
if (len <= l) { if (len <= l) {
memcpy(fop->buffer + fop->bufcount, str + d, len); memcpy(fop->buffer + fop->bufcount, str + d, len);