From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 25 Jan 2017 19:16:23 +0000 (-0800)
Subject: Fix thinko: caller argument in wrong place.
X-Git-Tag: mit-scheme-pucked-9.2.12~227^2~83
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=915ec9bac0f4f3ae2233b9f016dce909b1c783ea;p=mit-scheme.git

Fix thinko: caller argument in wrong place.
---

diff --git a/src/runtime/ttyio.scm b/src/runtime/ttyio.scm
index ca76881b4..bbc8f299e 100644
--- a/src/runtime/ttyio.scm
+++ b/src/runtime/ttyio.scm
@@ -83,8 +83,8 @@ USA.
 	       (make-channel-output-sink output-channel)
 	       'TEXT
 	       'TEXT
-	       (channel-type=file? input-channel)
-	       (default-object)))
+	       (default-object)
+	       (channel-type=file? input-channel)))
 
 (define (set-console-i/o-port! port)
   (if (not (i/o-port? port))