7156

2 files changed, 6 insertions, 3 deletions

diff --git a/apps/arith.mu b/apps/arith.mu
index b7a7c81d..551753de 100644
--- a/apps/arith.mu
+++ b/apps/arith.mu
@@ -32,6 +32,7 @@
 # Error handling is non-existent. This is just a prototype.
 
 fn main -> exit-status/ebx: int {
+  enable-keyboard-immediate-mode
   var look/esi: grapheme <- copy 0  # lookahead
   var n/eax: int <- copy 0  # result of each expression
   print-string 0, "press ctrl-c or ctrl-d to exit\n"
@@ -50,6 +51,7 @@ fn main -> exit-status/ebx: int {
     #
     loop
   }
+  enable-keyboard-type-mode
   exit-status <- copy 0
 }
 
@@ -244,8 +246,9 @@ fn skip-spaces _look: grapheme -> look/esi: grapheme {
 
 fn get-char -> look/esi: grapheme {
   var tmp/eax: grapheme <- read-key-from-real-keyboard
+  print-grapheme-to-real-screen tmp
   look <- copy tmp
-  compare look, 0
+  compare look, 4
   {
     break-if-!=
     print-string 0, "^D\n"
diff --git a/apps/tile/main.mu b/apps/tile/main.mu
index b02dc386..2e51eba1 100644
--- a/apps/tile/main.mu
+++ b/apps/tile/main.mu
@@ -87,10 +87,10 @@ fn test {
 fn repl {
   {
     # prompt
-    var line-storage: (stream byte 0x100)
-    var line/ecx: (addr stream byte) <- address line-storage
     print-string-to-real-screen "> "
     # read
+    var line-storage: (stream byte 0x100)
+    var line/ecx: (addr stream byte) <- address line-storage
     clear-stream line
     read-line-from-real-keyboard line
     var done?/eax: boolean <- stream-empty? line