Fix incorrect type checks in flush-output-port.

diff --git a/src/runtime/output.scm b/src/runtime/output.scm
index f9fba41d49013f447a4b35079a5775d5712697df..d7d7769de9e1aa8d5a43b46a45ca330d97aa83bb 100644 (file)
--- 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)