* lineio.scm (make-line-buffering-input-port): Properly test for

the case of an empty buffer list.  The old code assumed that '()
was false.

diff --git a/ice-9/lineio.scm b/ice-9/lineio.scm
index ffde886..28e4a65 100644 (file)
--- a/ice-9/lineio.scm
+++ b/ice-9/lineio.scm
@@ -95,15 +95,14 @@
 
         (read-string (lambda ()
                       (cond
-                       (buffers        (let ((answer (car buffers)))
-                                         (set! buffers (cdr buffers))
-                                         answer))
-
-                       ((ungetc-char-ready? self)      (read-line self 'include-newline))
-
-                       (else                           (read-line underlying-port 'include-newline)))))
-                          
-        )
+                       ((not (null? buffers))
+                        (let ((answer (car buffers)))
+                          (set! buffers (cdr buffers))
+                          answer))
+                       ((ungetc-char-ready? self)
+                        (read-line self 'include-newline))
+                       (else
+                        (read-line underlying-port 'include-newline))))))
 
     (set-object-property! self 'unread-string unread-string)
     (set-object-property! self 'read-string read-string)