From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 2 Aug 2017 02:31:22 +0000 (-0400)
Subject: Fix thinko in previous change.
X-Git-Tag: mit-scheme-pucked-9.2.12~14^2~32
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=11ca9275d32d54817af01be8e9694de4acd7273f;p=mit-scheme.git

Fix thinko in previous change.

We want to close an I/O port when both channels are the same and the other one
is marked closed.
---

diff --git a/src/runtime/binary-port.scm b/src/runtime/binary-port.scm
index 6d544e5b6..223bc907f 100644
--- a/src/runtime/binary-port.scm
+++ b/src/runtime/binary-port.scm
@@ -256,7 +256,7 @@ USA.
 	       (let ((ob (port-output-buffer port)))
 		 (or (not ob)
 		     (not (eqv? ic (buffer-channel ob)))
-		     (not (buffer-marked-closed? ob)))))
+		     (buffer-marked-closed? ob))))
 	  (channel-close ic)))))
 
 (define (close-binary-output-port port)
@@ -267,7 +267,7 @@ USA.
 	       (let ((ib (port-input-buffer port)))
 		 (or (not ib)
 		     (not (eqv? oc (buffer-channel ib)))
-		     (not (buffer-marked-closed? ib)))))
+		     (buffer-marked-closed? ib))))
 	  (channel-close oc)))))
 
 ;;;; Positioning