diff options
author | Kartik Agaram <vc@akkartik.com> | 2020-10-10 21:43:34 -0700 |
---|---|---|
committer | Kartik Agaram <vc@akkartik.com> | 2020-10-10 21:43:34 -0700 |
commit | 3d203a4484ec1603a7e39b0c533daef0827ebf58 (patch) | |
tree | 52912a98cee0c730aea4854bdb9b6784dbfe1cba | |
parent | 7c2d5dc88b48630026eb266a6cb81c95a8a9d798 (diff) | |
download | mu-3d203a4484ec1603a7e39b0c533daef0827ebf58.tar.gz |
6996
-rw-r--r-- | apps/tile/environment.mu | 15 |
1 files changed, 1 insertions, 14 deletions
diff --git a/apps/tile/environment.mu b/apps/tile/environment.mu index 114b8414..7e2b360b 100644 --- a/apps/tile/environment.mu +++ b/apps/tile/environment.mu @@ -140,21 +140,8 @@ $process:body: { var _cursor-word/eax: (addr word) <- lookup *cursor-word-ah cursor-word <- copy _cursor-word } - # then move to end of caller's previous 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-= -#? print-string 0, "jump before caller\n" - copy-object prev-word-ah, cursor-word-ah - cursor-to-end prev-word - var cursor-call-path/eax: (addr handle call-path-element) <- get sandbox, cursor-call-path - decrement-final-element cursor-call-path - } - break $process:body } - # otherwise, move to end of previous word + # then move to end of previous word var prev-word-ah/edx: (addr handle word) <- get cursor-word, prev var prev-word/eax: (addr word) <- lookup *prev-word-ah { |