[PATCH] Remove useless peek-char when read-string is called without read length

[Evan Hanson]

This call to `peek-char' was introduced by c78cdcd9, but it's useless
and was probably only included in that commit by accident. The
`read-string!/port` helper that's used just below to handle input
already takes care of everything for us, no need to peek as well.
---
 extras.scm | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/extras.scm b/extras.scm
index cc679697..8a9f6fed 100644
--- a/extras.scm
+++ b/extras.scm
@@ -165,8 +165,7 @@
           (let ([out (open-output-string)]
                 (buf (make-string read-string-buffer-size)))
             (let loop ()
-              (let ((c (peek-char p))
-                    (n (read-string!/port read-string-buffer-size buf p 0)))
+              (let ((n (read-string!/port read-string-buffer-size buf p 0)))
                 (cond ((eq? n 0)
                        (get-output-string out))
                       (else
-- 
2.29.2