diff options
author | Kartik Agaram <vc@akkartik.com> | 2020-10-11 22:11:03 -0700 |
---|---|---|
committer | Kartik Agaram <vc@akkartik.com> | 2020-10-11 22:11:03 -0700 |
commit | 31a1ade9a2c86141b78ffd8415c4d64aaebecb5c (patch) | |
tree | 6ff62a7660e4b61649f674697dd677740626e770 | |
parent | 9cbb6dce5400aa2218daa6408f544d99fde6c614 (diff) | |
download | mu-31a1ade9a2c86141b78ffd8415c4d64aaebecb5c.tar.gz |
7003
-rw-r--r-- | apps/tile/environment.mu | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/apps/tile/environment.mu b/apps/tile/environment.mu index 643cd13f..2850f394 100644 --- a/apps/tile/environment.mu +++ b/apps/tile/environment.mu @@ -260,14 +260,14 @@ $process:body: { compare key, 0xe # 14 = ctrl-n $process:next-word: { break-if-!= - print-string 0, "AA\n" +#? print-string 0, "AA\n" # jump to previous word at same level var next-word-ah/edx: (addr handle word) <- get cursor-word, next var next-word/eax: (addr word) <- lookup *next-word-ah { compare next-word, 0 break-if-= - print-string 0, "BB\n" +#? print-string 0, "BB\n" copy-object next-word-ah, cursor-word-ah cursor-to-end next-word var cursor-call-path/eax: (addr handle call-path-element) <- get sandbox, cursor-call-path @@ -275,14 +275,14 @@ $process:body: { break $process:body } # if next word doesn't exist, try to bump up one level - print-string 0, "CC\n" +#? print-string 0, "CC\n" var cursor-call-path-ah/edi: (addr handle call-path-element) <- get sandbox, cursor-call-path var cursor-call-path/eax: (addr call-path-element) <- lookup *cursor-call-path-ah var caller-cursor-element-ah/ecx: (addr handle call-path-element) <- get cursor-call-path, next var caller-cursor-element/eax: (addr call-path-element) <- lookup *caller-cursor-element-ah compare caller-cursor-element, 0 break-if-= - print-string 0, "DD\n" +#? print-string 0, "DD\n" copy-object caller-cursor-element-ah, cursor-call-path-ah break $process:body } |