diff options
| author | Kartik Agaram <vc@akkartik.com> | 2020-10-11 00:17:24 -0700 |
|---|---|---|
| committer | Kartik Agaram <vc@akkartik.com> | 2020-10-11 00:17:24 -0700 |
| commit | 8c0d0c84647f8e91fa4dd666e9f3d462e9af5ea2 (patch) | |
| tree | 871d3959a9a37a13630b490b2478891c3fdbc8f3 /apps/tile | |
| parent | 1c441baf96ceb59ee1a04856f235b68244d59aae (diff) | |
| download | mu-8c0d0c84647f8e91fa4dd666e9f3d462e9af5ea2.tar.gz | |
7001
Diffstat (limited to 'apps/tile')
| -rw-r--r-- | apps/tile/environment.mu | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/apps/tile/environment.mu b/apps/tile/environment.mu index 2dc57240..51adfdd8 100644 --- a/apps/tile/environment.mu +++ b/apps/tile/environment.mu @@ -216,7 +216,7 @@ $process:body: { break $process:body } compare key, 0x10 # 16 = ctrl-p - { + $process:prev-word: { break-if-!= #? print-string 0, "AA\n" # jump to previous word at same level @@ -234,11 +234,6 @@ $process:body: { # if previous word doesn't exist, try to bump up one level #? print-string 0, "BB\n" { - 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, "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 @@ -246,12 +241,12 @@ $process:body: { compare caller-cursor-element, 0 break-if-= # check if previous word exists in caller -#? print-string 0, "DD\n" +#? print-string 0, "CC\n" var caller-index/eax: (addr int) <- get caller-cursor-element, index-in-body compare *caller-index, 0 break-if-<= # if so jump to it -#? print-string 0, "EE\n" +#? print-string 0, "DD\n" copy-object caller-cursor-element-ah, cursor-call-path-ah decrement-final-element cursor-call-path-ah break $process:body |