akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

7211

This commit is contained in:
Kartik Agaram 2020-11-07 19:49:11 -08:00
parent f2a3c381a7
commit 4f86220a6c
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
apps/tile/environment.mu
View File

@ -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"