From c11ea74442e20070e1453e7e1ee27b7870407023 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Sat, 17 Apr 2021 22:53:45 -0700
Subject: [PATCH] .

---
 shell/cell.mu    | 4 ++--
 shell/sandbox.mu | 8 ++++----
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/shell/cell.mu b/shell/cell.mu
index 9cb6ea9e..eb95f2ee 100644
--- a/shell/cell.mu
+++ b/shell/cell.mu
@@ -139,7 +139,7 @@ fn allocate-screen _out: (addr handle cell) {
   copy-to *type, 5/screen
 }
 
-fn new-screen _out: (addr handle cell), width: int, height: int {
+fn new-fake-screen _out: (addr handle cell), width: int, height: int {
   var out/eax: (addr handle cell) <- copy _out
   allocate-screen out
   var out-addr/eax: (addr cell) <- lookup *out
@@ -171,7 +171,7 @@ fn allocate-keyboard _out: (addr handle cell) {
   copy-to *type, 6/keyboard
 }
 
-fn new-keyboard _out: (addr handle cell), capacity: int {
+fn new-fake-keyboard _out: (addr handle cell), capacity: int {
   var out/eax: (addr handle cell) <- copy _out
   allocate-keyboard out
   var out-addr/eax: (addr cell) <- lookup *out
diff --git a/shell/sandbox.mu b/shell/sandbox.mu
index 1d9e2289..65ea1557 100644
--- a/shell/sandbox.mu
+++ b/shell/sandbox.mu
@@ -9,7 +9,7 @@ type sandbox {
   cursor-in-trace?: boolean
 }
 
-fn initialize-sandbox _self: (addr sandbox), screen-and-keyboard?: boolean {
+fn initialize-sandbox _self: (addr sandbox), fake-screen-and-keyboard?: boolean {
   var self/esi: (addr sandbox) <- copy _self
   var data-ah/eax: (addr handle gap-buffer) <- get self, data
   allocate data-ah
@@ -20,12 +20,12 @@ fn initialize-sandbox _self: (addr sandbox), screen-and-keyboard?: boolean {
   populate-stream value-ah, 0x1000/4KB
   #
   {
-    compare screen-and-keyboard?, 0/false
+    compare fake-screen-and-keyboard?, 0/false
     break-if-=
     var screen-ah/eax: (addr handle cell) <- get self, screen-var
-    new-screen screen-ah, 5/width, 4/height
+    new-fake-screen screen-ah, 5/width, 4/height
     var keyboard-ah/eax: (addr handle cell) <- get self, keyboard-var
-    new-keyboard keyboard-ah, 0x10/keyboard-capacity
+    new-fake-keyboard keyboard-ah, 0x10/keyboard-capacity
   }
   #
   var trace-ah/eax: (addr handle trace) <- get self, trace