* genio.c (scm_do_read_line): Maintain the line count correctly.

diff --git a/libguile/genio.c b/libguile/genio.c
index 6db2cb5..1e5598d 100644 (file)
--- a/libguile/genio.c
+++ b/libguile/genio.c
@@ -182,6 +182,9 @@ scm_do_read_line (port, len)
 
   i = SCM_PTOBNUM (port);
   SCM_SYSCALL (s = (scm_ptobs[i].fgets) (port, len));
+  if (s)
+    SCM_INCLINE(port);
+
   return s;
 }