From f461d79f795bfdbc33e3e78cbea3b6f24dddf18e Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 10 Jan 2017 21:27:51 -0800 Subject: [PATCH] Fix incorrect type checks in flush-output-port. --- src/runtime/output.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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) -- 2.25.1