diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2021-07-25 16:15:20 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2021-07-25 16:24:45 -0700 |
commit | ff24d7b8104338f386f78be6cbca7fd39cd9e045 (patch) | |
tree | afdc08ae2469c4def159f417216d4f1548fe5a7c | |
parent | 251f317c387c5bd6c938cff3e6af4be63f42eb4f (diff) | |
download | mu-ff24d7b8104338f386f78be6cbca7fd39cd9e045.tar.gz |
.
-rw-r--r-- | shell/print.mu | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/shell/print.mu b/shell/print.mu index 0469c002..65e387a7 100644 --- a/shell/print.mu +++ b/shell/print.mu @@ -68,7 +68,7 @@ fn print-cell _in: (addr handle cell), out: (addr stream byte), trace: (addr tra compare *in-type, 4/primitive { break-if-!= - var overflow?/eax: boolean <- try-write out, "[primitive]" + var overflow?/eax: boolean <- try-write out, "{primitive}" compare overflow?, 0/false { break-if-= @@ -89,12 +89,12 @@ fn print-cell _in: (addr handle cell), out: (addr stream byte), trace: (addr tra error trace, "print-cell: no space for screen" return } - write out, "[screen " + write out, "{screen " var screen-ah/eax: (addr handle screen) <- get in-addr, screen-data var screen/eax: (addr screen) <- lookup *screen-ah var screen-addr/eax: int <- copy screen write-int32-hex out, screen-addr - write out, "]" + write out, "}" trace-higher trace return } @@ -109,12 +109,12 @@ fn print-cell _in: (addr handle cell), out: (addr stream byte), trace: (addr tra error trace, "print-cell: no space for keyboard" return } - write out, "[keyboard " + write out, "{keyboard " var keyboard-ah/eax: (addr handle gap-buffer) <- get in-addr, keyboard-data var keyboard/eax: (addr gap-buffer) <- lookup *keyboard-ah var keyboard-addr/eax: int <- copy keyboard write-int32-hex out, keyboard-addr - write out, "]" + write out, "}" trace-higher trace return } |