From 4f86220a6ced126791e8c3e6df2b492663b89ac4 Mon Sep 17 00:00:00 2001
From: Kartik Agaram <vc@akkartik.com>
Date: Sat, 7 Nov 2020 19:49:11 -0800
Subject: 7211

---
 apps/tile/environment.mu | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

diff --git a/apps/tile/environment.mu b/apps/tile/environment.mu
index e0260c23..495a1083 100644
--- a/apps/tile/environment.mu
+++ b/apps/tile/environment.mu
@@ -810,6 +810,30 @@ fn bound-function? w: (addr word), functions-ah: (addr handle function) -> _/ebx
     subresult <- word-equal? w, "fake-screen"
     compare subresult, 0  # false
     break-if-!=
+    # if w == "print" return true
+    subresult <- word-equal? w, "print"
+    compare subresult, 0  # false
+    break-if-!=
+    # if w == "move" return true
+    subresult <- word-equal? w, "move"
+    compare subresult, 0  # false
+    break-if-!=
+    # if w == "up" return true
+    subresult <- word-equal? w, "up"
+    compare subresult, 0  # false
+    break-if-!=
+    # if w == "down" return true
+    subresult <- word-equal? w, "down"
+    compare subresult, 0  # false
+    break-if-!=
+    # if w == "left" return true
+    subresult <- word-equal? w, "left"
+    compare subresult, 0  # false
+    break-if-!=
+    # if w == "right" return true
+    subresult <- word-equal? w, "right"
+    compare subresult, 0  # false
+    break-if-!=
     ## hacks
     # if w == "dup" return true
     subresult <- word-equal? w, "dup"
-- 
cgit 1.4.1-2-gfad0