From 222548962c9ed85c9d5057757287d0b0b069af02 Mon Sep 17 00:00:00 2001
From: Kartik Agaram <vc@akkartik.com>
Date: Mon, 29 Jun 2020 19:14:19 -0700
Subject: 6599

---
 apps/arith.mu      |  8 ++++----
 apps/browse.mu     |  2 +-
 apps/parse-int.mu  |  2 +-
 apps/print-file.mu |  2 +-
 apps/tui.mu        | 14 +++++++-------
 5 files changed, 14 insertions(+), 14 deletions(-)

(limited to 'apps')

diff --git a/apps/arith.mu b/apps/arith.mu
index 39e304b0..4f33d7be 100644
--- a/apps/arith.mu
+++ b/apps/arith.mu
@@ -35,11 +35,11 @@
 fn main -> exit-status/ebx: int {
   var look/esi: byte <- copy 0  # lookahead
   var n/eax: int <- copy 0  # result of each expression
-  print-string "press ctrl-c or ctrl-d to exit\n"
+  print-string-to-screen "press ctrl-c or ctrl-d to exit\n"
   # read-eval-print loop
   {
     # print prompt
-    print-string "> "
+    print-string-to-screen "> "
     # read and eval
     n, look <- simplify  # we explicitly thread 'look' everywhere
     # if (look == 0) break
@@ -47,7 +47,7 @@ fn main -> exit-status/ebx: int {
     break-if-=
     # print
     print-int32-to-screen n
-    print-string "\n"
+    print-string-to-screen "\n"
     #
     loop
   }
@@ -249,7 +249,7 @@ fn get-char -> look/esi: byte {
   compare look, 0
   {
     break-if-!=
-    print-string "^D\n"
+    print-string-to-screen "^D\n"
     syscall_exit
   }
 }
diff --git a/apps/browse.mu b/apps/browse.mu
index 4a7ab2c1..0f34e11e 100644
--- a/apps/browse.mu
+++ b/apps/browse.mu
@@ -163,7 +163,7 @@ fn clear toprow: int, leftcol: int, botrow: int, rightcol: int {
     {
       compare col, rightcol
       break-if->=
-      print-string " "
+      print-string-to-screen " "
       col <- increment
       loop
     }
diff --git a/apps/parse-int.mu b/apps/parse-int.mu
index c9c1d945..d8ae87e0 100644
--- a/apps/parse-int.mu
+++ b/apps/parse-int.mu
@@ -14,7 +14,7 @@ $main-body: {
   compare n, 1
   {
     break-if->
-    print-string "usage: parse-int <integer>\n"
+    print-string-to-screen "usage: parse-int <integer>\n"
     exit-status <- copy 1
     break $main-body
   }
diff --git a/apps/print-file.mu b/apps/print-file.mu
index c44e09d1..ec9f9367 100644
--- a/apps/print-file.mu
+++ b/apps/print-file.mu
@@ -14,7 +14,7 @@ $main-body: {
     compare n, 1
     {
       break-if->
-      print-string "usage: cat <filename>\n"
+      print-string-to-screen "usage: cat <filename>\n"
       break $main-body
     }
     {
diff --git a/apps/tui.mu b/apps/tui.mu
index 07d3147e..cde83b2b 100644
--- a/apps/tui.mu
+++ b/apps/tui.mu
@@ -12,22 +12,22 @@ fn main -> exit-status/ebx: int {
   move-cursor 5, 35
   start-color 1, 0x7a
   start-blinking
-  print-string "Hello world!"
+  print-string-to-screen "Hello world!"
   reset-formatting
   move-cursor 6, 35
-  print-string "tty dimensions: "
+  print-string-to-screen "tty dimensions: "
   print-int32-to-screen nrows
-  print-string " rows, "
+  print-string-to-screen " rows, "
   print-int32-to-screen ncols
-  print-string " rows\n"
+  print-string-to-screen " rows\n"
 
-  print-string "press a key to see its code: "
+  print-string-to-screen "press a key to see its code: "
   enable-keyboard-immediate-mode
   var x/eax: byte <- read-key
   enable-keyboard-type-mode
   enable-screen-type-mode
-  print-string "You pressed "
+  print-string-to-screen "You pressed "
   print-int32-to-screen x
-  print-string "\n"
+  print-string-to-screen "\n"
   exit-status <- copy 0
 }
-- 
cgit 1.4.1-2-gfad0