From 799caead0e4aa0d102834187abe2e9b06d4fdb92 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Thu, 2 Feb 2017 10:11:36 -0700
Subject: [PATCH] Close-binary-input-port did not close its input buffer.

---
 src/runtime/binary-port.scm | 1 +
 1 file changed, 1 insertion(+)

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)))
-- 
2.25.1