From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Thu, 2 Feb 2017 17:11:36 +0000 (-0700)
Subject: Close-binary-input-port did not close its input buffer.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~6^2
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=799caead0e4aa0d102834187abe2e9b06d4fdb92;p=mit-scheme.git

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 252a67568..3c500708f 100644
--- 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)))