574 - printing string literals is a hack; hard-code it in for now

1 files changed, 6 insertions, 6 deletions

diff --git a/stdin.mu b/stdin.mu
index d45f91ef..fc132092 100644
--- a/stdin.mu
+++ b/stdin.mu
@@ -4,19 +4,19 @@
   (clear-screen)
   ; hook up stdin
   (stdin:channel-address <- init-channel 1:literal)
-;?   (print-primitive nil:literal/terminal (("main: stdin is " literal)))
+;?   (print-primitive-to-host (("main: stdin is " literal)))
 ;?   (print-primitive nil:literal/terminal stdin:channel-address)
-;?   (print-primitive nil:literal/terminal (("\n" literal)))
+;?   (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
-  (print-primitive nil:literal/terminal (("? " literal)))
+  (print-primitive-to-host (("? " literal)))
   { begin
     (x:tagged-value stdin:channel-address/deref <- read stdin:channel-address)
     (c:character <- maybe-coerce x:tagged-value character:literal)
-;?     (print-primitive nil:literal/terminal (("main: stdin is " literal)))
+;?     (print-primitive-to-host (("main: stdin is " literal)))
 ;?     (print-primitive nil:literal/terminal stdin:channel-address)
-;?     (print-primitive nil:literal/terminal (("\n" literal)))
-;?     (print-primitive nil:literal/terminal (("check: " literal)))
+;?     (print-primitive-to-host (("\n" literal)))
+;?     (print-primitive-to-host (("check: " literal)))
 ;?     (print-primitive nil:literal/terminal c:character)
     (done?:boolean <- equal c:character ((#\q literal)))
     (break-if done?:boolean)