From: Taylor R Campbell <campbell@mumble.net>
Date: Tue, 19 Dec 2017 14:15:22 +0000 (+0000)
Subject: Call close-textual-in/output-port, not close-in/output-port.
X-Git-Tag: mit-scheme-pucked-9.2.12~14^2~3
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b91999543d9cb5be40a8289d0463c1a9ae689a88;p=mit-scheme.git

Call close-textual-in/output-port, not close-in/output-port.

Former is noop for non-input or non-output port; latter is error.

Fixes close-port on something that is only a textual input port or
only a textual output port.
---

diff --git a/src/runtime/port.scm b/src/runtime/port.scm
index df3eed44c..4e1e527c7 100644
--- a/src/runtime/port.scm
+++ b/src/runtime/port.scm
@@ -439,8 +439,8 @@ USA.
     (if close
 	(close port)
 	(begin
-	  (close-output-port port)
-	  (close-input-port port)))))
+	  (close-textual-output-port port)
+	  (close-textual-input-port port)))))
 
 (define (close-textual-input-port port)
   (let ((close-input (textual-port-operation port 'CLOSE-INPUT)))