From ad1e53df8b525f55d28f295ac9212d08af4dca90 Mon Sep 17 00:00:00 2001
From: Kartik Agaram <vc@akkartik.com>
Date: Mon, 14 Sep 2020 21:42:31 -0700
Subject: 6778

---
 305keyboard.subx | 4 ++--
 400.mu           | 2 +-
 apps/arith.mu    | 2 +-
 3 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/305keyboard.subx b/305keyboard.subx
index 5c05be6b..bac7a431 100644
--- a/305keyboard.subx
+++ b/305keyboard.subx
@@ -119,7 +119,7 @@ $enable-keyboard-type-mode:end:
     5d/pop-to-ebp
     c3/return
 
-read-key:  # -> result/eax: byte
+read-key-from-real-keyboard:  # -> result/eax: byte
     # . prologue
     55/push-ebp
     89/<- %ebp 4/r32/esp
@@ -134,7 +134,7 @@ read-key:  # -> result/eax: byte
     #
     (read 2 %ecx)  # => eax
     8b/-> *(ecx+0xc) 0/r32/eax
-$read-key:end:
+$read-key-from-real-keyboard:end:
     # . reclaim locals
     81 0/subop/add %esp 0x10/imm32
     # . restore registers
diff --git a/400.mu b/400.mu
index ab41fc5b..57032f0b 100644
--- a/400.mu
+++ b/400.mu
@@ -158,7 +158,7 @@ sig hide-cursor-on-real-screen
 sig show-cursor-on-real-screen
 sig enable-keyboard-immediate-mode
 sig enable-keyboard-type-mode
-sig read-key -> result/eax: byte
+sig read-key-from-real-keyboard -> result/eax: byte
 sig open filename: (addr array byte), write?: boolean, out: (addr handle buffered-file)
 sig populate-buffered-file-containing contents: (addr array byte), out: (addr handle buffered-file)
 sig new-buffered-file out: (addr handle buffered-file)
diff --git a/apps/arith.mu b/apps/arith.mu
index fdf97213..46341157 100644
--- a/apps/arith.mu
+++ b/apps/arith.mu
@@ -243,7 +243,7 @@ fn skip-spaces _look: byte -> look/esi: byte {
 }
 
 fn get-char -> look/esi: byte {
-  var tmp/eax: byte <- read-key
+  var tmp/eax: byte <- read-key-from-real-keyboard
   look <- copy tmp
   compare look, 0
   {
-- 
cgit 1.4.1-2-gfad0