From 818512d15a754c8ce092b2ee4e61cb611119b9fc Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Sat, 10 Oct 2020 21:31:33 -0700 Subject: 6993 --- apps/tile/environment.mu | 13 ++++--------- 1 file changed, 4 insertions(+), 9 deletions(-) (limited to 'apps') diff --git a/apps/tile/environment.mu b/apps/tile/environment.mu index 53e28c84..6b00a4c7 100644 --- a/apps/tile/environment.mu +++ b/apps/tile/environment.mu @@ -105,18 +105,13 @@ $process:body: { var curr-word-is-expanded?/eax: boolean <- find-in-call-path expanded-words, cursor-call-path compare curr-word-is-expanded?, 0 # false break-if-= + # update cursor-call-path #? print-string 0, "curr word is expanded\n" var self/ecx: (addr environment) <- copy _self var functions/ecx: (addr handle function) <- get self, functions - { - var curr-word-is-expanded?/eax: boolean <- find-in-call-path expanded-words, cursor-call-path - compare curr-word-is-expanded?, 0 # false - break-if-= - var n/eax: int <- body-length functions, cursor-word-ah - n <- decrement - push-to-call-path-element cursor-call-path, n -#? loop - } + var n/eax: int <- body-length functions, cursor-word-ah + n <- decrement + push-to-call-path-element cursor-call-path, n # move cursor to end of word get-cursor-word sandbox, functions, cursor-word-ah var cursor-word/eax: (addr word) <- lookup *cursor-word-ah -- cgit 1.4.1-2-gfad0