1999-07-14 Gary Houston <ghouston@easynet.co.uk>

[bpt/guile.git] / libguile / fports.c

diff --git a/libguile/fports.c b/libguile/fports.c
index 769bf51..603ecd1 100644 (file)
--- a/libguile/fports.c
+++ b/libguile/fports.c
@@ -425,9 +425,9 @@ fport_fill_buffer (SCM port)
     return EOF;
   else
     {
-      pt->read_pos = pt->read_buf + 1;
+      pt->read_pos = pt->read_buf;
       pt->read_end = pt->read_buf + count;
-      return (*(pt->read_buf));
+      return *pt->read_buf;
     }
 }