Fixed bug in %read-delimited! so the last char is not eaten if the buffer is full

This commit is contained in:
marting 2000-06-28 13:41:45 +00:00
parent 8d5d52eefa
commit eb80e59280
1 changed files with 0 additions and 1 deletions

View File

@ -192,7 +192,6 @@
(values c (- i start))) (values c (- i start)))
((>= i end) ; Filled the buffer. ((>= i end) ; Filled the buffer.
(if gobble? (read-char port))
(values #f (- i start))) (values #f (- i start)))
(else (string-set! buf i (read-char port)) (else (string-set! buf i (read-char port))