From 11ca9275d32d54817af01be8e9694de4acd7273f Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 1 Aug 2017 22:31:22 -0400 Subject: [PATCH] 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. --- src/runtime/binary-port.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 2.25.1