From eb80e592809b9b7949c2ee51c2d2684be1b6891c Mon Sep 17 00:00:00 2001
From: marting <marting>
Date: Wed, 28 Jun 2000 13:41:45 +0000
Subject: [PATCH] Fixed bug in %read-delimited! so the last char is not eaten
 if the buffer is full

---
 scsh/rdelim.scm | 1 -
 1 file changed, 1 deletion(-)

diff --git a/scsh/rdelim.scm b/scsh/rdelim.scm
index 3583801..2a3b1d5 100644
--- 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))