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 6d544e5b63db02abdf5702b56b46ec96b8085727..223bc907f9f5851563facd3983749bec7a898255 100644 (file)
--- 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)))))
 \f
 ;;;; Positioning