From e33026ad91b9eda1123fb169ad5d4a5fa2577ef8 Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Thu, 6 Apr 2006 00:14:10 +0000
Subject: [PATCH] =?UTF-8?q?(scm=5Fsetvbuf):=20Fix=20for=20not=20=5FIOLBF,?=
 =?UTF-8?q?=20clear=20SCM=5FBUFLINE=20instead=20of=20toggling=20it.=20=20R?=
 =?UTF-8?q?eported=20by=20Ludovic=20Court=C3=A8s.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 libguile/fports.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/fports.c b/libguile/fports.c
index 35944b5e3..7af5f6a27 100644
--- a/libguile/fports.c
+++ b/libguile/fports.c
@@ -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))