578 - switch to non-polymorphic 'print' functions

Also clean up various prints from last few commits.
As a convention, for debugging we always print directly to host.

1 files changed, 4 insertions, 4 deletions

diff --git a/stdin.mu b/stdin.mu
index fc132092..803dd60c 100644
--- a/stdin.mu
+++ b/stdin.mu
@@ -5,7 +5,7 @@
   ; hook up stdin
   (stdin:channel-address <- init-channel 1:literal)
 ;?   (print-primitive-to-host (("main: stdin is " literal)))
-;?   (print-primitive nil:literal/terminal stdin:channel-address)
+;?   (print-primitive-to-host stdin:channel-address)
 ;?   (print-primitive-to-host (("\n" literal)))
   (fork-helper send-keys-to-stdin:fn nil:literal/globals nil:literal/limit stdin:channel-address)
   ; now read characters from stdin until a 'q' is typed
@@ -14,13 +14,13 @@
     (x:tagged-value stdin:channel-address/deref <- read stdin:channel-address)
     (c:character <- maybe-coerce x:tagged-value character:literal)
 ;?     (print-primitive-to-host (("main: stdin is " literal)))
-;?     (print-primitive nil:literal/terminal stdin:channel-address)
+;?     (print-primitive-to-host stdin:channel-address)
 ;?     (print-primitive-to-host (("\n" literal)))
 ;?     (print-primitive-to-host (("check: " literal)))
-;?     (print-primitive nil:literal/terminal c:character)
+;?     (print-primitive-to-host c:character)
     (done?:boolean <- equal c:character ((#\q literal)))
     (break-if done?:boolean)
-    (print-primitive nil:literal/terminal c:character)
+    (print-character nil:literal/terminal c:character)
     (loop)
   }
 ])