mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-28 16:00:22 +02:00
Code Activity

(scm_setvbuf): Fix for not _IOLBF, clear SCM_BUFLINE

Browse source 
instead of toggling it.  Reported by Ludovic Courtès.
This commit is contained in:
Kevin Ryde 2006-04-06 00:14:10 +00:00
parent 5f0ecc1f02
commit e33026ad91
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/fports.c
View file

@ -155,7 +155,7 @@ SCM_DEFINE (scm_setvbuf, "setvbuf", 2, 1, 0,
}
else
{
SCM_SET_CELL_WORD_0 (port, SCM_CELL_WORD_0 (port) ^ SCM_BUFLINE);
SCM_SET_CELL_WORD_0 (port, SCM_CELL_WORD_0 (port) & ~(scm_t_bits)SCM_BUFLINE);
}
if (SCM_UNBNDP (size))