mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-30 00:40:20 +02:00
Code Activity

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

Browse source 
the case of an empty buffer list.  The old code assumed that '()
was false.
This commit is contained in:
Jim Blandy 1997-01-08 01:27:12 +00:00
parent 132e5fac84
commit b1646914c4
1 changed files with 8 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

17
ice-9/lineio.scm
View file

@ -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)