From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Thu, 2 Feb 2017 16:52:12 +0000 (-0700)
Subject: Close-binary-input-port did not close its input buffer.
X-Git-Tag: mit-scheme-pucked-9.2.12~229
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=52703a2c47a02bb7ec75cc194218a3a95d932654;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)))