7211

1 files changed, 24 insertions, 0 deletions

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"