From 6f760c1dc814e872b530cf5ff14e88eda0a1d6f1 Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Mon, 12 Jun 2000 18:13:02 +0000
Subject: [PATCH] * fports.c (fport_flush): Declare `ptr' as unsigned char (was
 char).

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

diff --git a/libguile/fports.c b/libguile/fports.c
index 0632186f2..e765c77a2 100644
--- a/libguile/fports.c
+++ b/libguile/fports.c
@@ -616,7 +616,7 @@ fport_flush (SCM port)
 {
   scm_port *pt = SCM_PTAB_ENTRY (port);
   struct scm_fport *fp = SCM_FSTREAM (port);
-  char *ptr = pt->write_buf;
+  unsigned char *ptr = pt->write_buf;
   int init_size = pt->write_pos - pt->write_buf;
   int remaining = init_size;