blob: 9b53c1810d11899f1dd51cde4f87516cb58c4fbc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
$NetBSD: patch-am,v 1.1 2001/02/27 19:37:47 wiz Exp $
--- scsh/rdelim.scm.orig Sun Oct 1 07:27:57 2000
+++ scsh/rdelim.scm Sun Oct 1 07:28:50 2000
@@ -192,7 +192,7 @@
(values c (- i start)))
((>= i end) ; Filled the buffer.
- (if gobble? (read-char port))
+ ; [loses one character at end of full line buffer] (if gobble? (read-char port))
(values #f (- i start)))
(else (string-set! buf i (read-char port))
|