From 915ec9bac0f4f3ae2233b9f016dce909b1c783ea Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 25 Jan 2017 11:16:23 -0800
Subject: [PATCH] Fix thinko: caller argument in wrong place.

---
 src/runtime/ttyio.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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))
-- 
2.25.1