diff options
| -rw-r--r-- | apps/tile/environment.mu | 4 | ||||
| -rw-r--r-- | apps/tile/main.mu | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/apps/tile/environment.mu b/apps/tile/environment.mu index 9b45b43a..641f3166 100644 --- a/apps/tile/environment.mu +++ b/apps/tile/environment.mu @@ -283,7 +283,7 @@ $process:body: { break-if-!= # move cursor to initial word of sandbox var cursor-call-path-ah/eax: (addr handle call-path-element) <- get sandbox, cursor-call-path - allocate cursor-call-path-ah + initialize-path-from-sandbox sandbox, cursor-call-path-ah # move cursor to start of initial word var cursor-call-path-ah/eax: (addr handle call-path-element) <- get sandbox, cursor-call-path var cursor-call-path/eax: (addr call-path-element) <- lookup *cursor-call-path-ah @@ -299,7 +299,7 @@ $process:body: { break-if-!= # move cursor to final word of sandbox var cursor-call-path-ah/ecx: (addr handle call-path-element) <- get sandbox, cursor-call-path - allocate cursor-call-path-ah + initialize-path-from-sandbox sandbox, cursor-call-path-ah var cursor-call-path/eax: (addr call-path-element) <- lookup *cursor-call-path-ah var dest/eax: (addr handle word) <- get cursor-call-path, word final-word dest, dest diff --git a/apps/tile/main.mu b/apps/tile/main.mu index e9d1066f..611289f9 100644 --- a/apps/tile/main.mu +++ b/apps/tile/main.mu @@ -77,6 +77,10 @@ fn test { initialize-environment-with-fake-screen env, 5, 0xa var g/eax: grapheme <- copy 0x61 # 'a' process env, g + g <- copy 1 # 'ctrl-a' + process env, g + g <- copy 5 # 'ctrl-e' + process env, g render env } |