diff options
| author | Kartik Agaram <vc@akkartik.com> | 2020-10-10 21:37:07 -0700 |
|---|---|---|
| committer | Kartik Agaram <vc@akkartik.com> | 2020-10-10 21:40:03 -0700 |
| commit | 7c2d5dc88b48630026eb266a6cb81c95a8a9d798 (patch) | |
| tree | 81c48ecd5f12bc019ea55a19e59a4acb4158408a /apps | |
| parent | 24c4854223abc8d7426f0c3094b0031c2aa8c343 (diff) | |
| download | mu-7c2d5dc88b48630026eb266a6cb81c95a8a9d798.tar.gz | |
6995
Diffstat (limited to 'apps')
| -rw-r--r-- | apps/tile/environment.mu | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/apps/tile/environment.mu b/apps/tile/environment.mu index 21be6e55..114b8414 100644 --- a/apps/tile/environment.mu +++ b/apps/tile/environment.mu @@ -119,14 +119,12 @@ $process:body: { break $process:body } # if at first word, look for a caller to jump to - $process:key-left-arrow-caller: { + $process:key-left-arrow-first-word: { var prev-word-ah/edx: (addr handle word) <- get cursor-word, prev var prev-word/eax: (addr word) <- lookup *prev-word-ah compare prev-word, 0 break-if-!= - $process:key-left-arrow-caller-loop: { - compare prev-word, 0 - break-if-!= + $process:key-left-arrow-first-word-and-caller: { #? print-string 0, "return\n" { var cursor-call-path-ah/edi: (addr handle call-path-element) <- get sandbox, cursor-call-path @@ -134,14 +132,13 @@ $process:body: { var next-cursor-element-ah/edx: (addr handle call-path-element) <- get cursor-call-path, next var next-cursor-element/eax: (addr call-path-element) <- lookup *next-cursor-element-ah compare next-cursor-element, 0 - break-if-= $process:key-left-arrow-caller-loop + break-if-= $process:key-left-arrow-first-word-and-caller copy-object next-cursor-element-ah, cursor-call-path-ah } var functions/eax: (addr handle function) <- get self, functions get-cursor-word sandbox, functions, cursor-word-ah var _cursor-word/eax: (addr word) <- lookup *cursor-word-ah cursor-word <- copy _cursor-word -#? loop } # then move to end of caller's previous word { |