Fix thinko: caller argument in wrong place.

diff --git a/src/runtime/ttyio.scm b/src/runtime/ttyio.scm
index ca76881b4e40ed84626499a9f4810f6c68cd0a18..bbc8f299e09cc57ee8c0c2f1062defc9908f9655 100644 (file)
--- 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))