Fixed bug in %read-delimited! so the last char is not eaten if the buffer is full
This commit is contained in:
parent
8d5d52eefa
commit
eb80e59280
|
@ -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))
|
||||||
|
|
Loading…
Reference in New Issue