Close-binary-input-port did not close its input buffer.

diff --git a/src/runtime/binary-port.scm b/src/runtime/binary-port.scm
index 252a675681b9a37db6607d6c9ece84dec8facf7b..3c500708f01df8b99346bdce24208ce58b2f055f 100644 (file)
--- a/src/runtime/binary-port.scm
+++ b/src/runtime/binary-port.scm
@@ -196,6 +196,7 @@ USA.
 
 (define (close-binary-input-port port)
   (let ((ib (port-input-buffer port)))
+    (close-input-buffer ib)
     (let ((ic (buffer-channel ib)))
       (if (and ic
               (let ((ob (port-output-buffer port)))