From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 11 Jan 2017 05:27:51 +0000 (-0800)
Subject: Fix incorrect type checks in flush-output-port.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~162
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f461d79f795bfdbc33e3e78cbea3b6f24dddf18e;p=mit-scheme.git

Fix incorrect type checks in flush-output-port.
---

diff --git a/src/runtime/output.scm b/src/runtime/output.scm
index f9fba41d4..d7d7769de 100644
--- a/src/runtime/output.scm
+++ b/src/runtime/output.scm
@@ -144,9 +144,9 @@ USA.
 
 (define (flush-output-port #!optional port)
   (let ((port (optional-output-port port 'flush-output-port)))
-    (cond ((binary-port? port) (flush-binary-output-port port))
-	  ((textual-port? port) (output-port/flush-output port))
-	  (else (error:not-a port? port 'flush-output-port)))))
+    (cond ((binary-output-port? port) (flush-binary-output-port port))
+	  ((textual-output-port? port) (output-port/flush-output port))
+	  (else (error:not-a output-port? port 'flush-output-port)))))
 
 (define (wrap-custom-operation-0 operation-name)
   (lambda (#!optional port)