about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--apps/tile/environment.mu13
1 files changed, 4 insertions, 9 deletions
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
2223ca33945'>^
6a0f71b9 ^

290fe117 ^
4d6b5173 ^
6a0f71b9 ^
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16



                                                                 
          
             
              
   
                                                 
                   
                                          

        
               
                      
 
# example program: reading events from keyboard or mouse
#
# Keeps printing 'a' until you press a key or click on the mouse.

def main [
  local-scope
  open-console
  {
    e:event, found?:bool <- check-for-interaction
    break-if found?
    print-character-to-display 97, 7/white
    loop
  }
  close-console
  $print e, 10/newline
]