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

2000-06-28 13:41:45 +00:00 · 2000-06-28 13:41:45 +00:00 · eb80e59280
parent 8d5d52eefa
commit eb80e59280
1 changed files with 0 additions and 1 deletions
--- a/scsh/rdelim.scm
+++ b/scsh/rdelim.scm
@ -192,7 +192,6 @@
 		     (values c (- i start)))

 		    ((>= i end)			; Filled the buffer.
-		     (if gobble? (read-char port))
 		     (values #f (- i start)))
 			
 		    (else (string-set! buf i (read-char port))