about summary refs log tree commit diff stats
path: root/apps/print-file.mu
diff options
context:
space:
mode:
Diffstat (limited to 'apps/print-file.mu')
-rw-r--r--apps/print-file.mu8
1 files changed, 4 insertions, 4 deletions
diff --git a/apps/print-file.mu b/apps/print-file.mu
index f04713c0..57e044dc 100644
--- a/apps/print-file.mu
+++ b/apps/print-file.mu
@@ -13,7 +13,7 @@ fn main _args: (addr array addr array byte) -> _/ebx: int {
   compare n, 1
   {
     break-if->
-    print-string 0, "usage: cat <filename>\n"
+    print-string 0/screen, "usage: cat <filename>\n"
     return 0
   }
   {
@@ -22,16 +22,16 @@ fn main _args: (addr array addr array byte) -> _/ebx: int {
     var in: (handle buffered-file)
     {
       var addr-in/eax: (addr handle buffered-file) <- address in
-      open *filename, 0, addr-in
+      open *filename, 0/read-only, addr-in
     }
     var _in-addr/eax: (addr buffered-file) <- lookup in
     var in-addr/ecx: (addr buffered-file) <- copy _in-addr
     {
       var c/eax: byte <- read-byte-buffered in-addr
-      compare c, 0xffffffff  # EOF marker
+      compare c, 0xffffffff/end-of-file
       break-if-=
       var g/eax: grapheme <- copy c
-      print-grapheme 0, g
+      print-grapheme 0/screen, g
       loop
     }
   }